Excel- ում մեկ էջում խմբաքանակով տպեք բազմաթիվ ընտրություններ (տպման բոլոր տարածքները)

Այստեղ ես կխոսեմ Excel- ում VBA- ով մեկ էջում բազմաթիվ ընտրված տողեր տպելու մասին: Խնդրում ենք անել հետևյալը.

1. Մամուլ ալտ + F11 միաժամանակ ստեղներ ՝ Microsoft Visual Basic հավելվածների համար պատուհանը բացելու համար:

2: սեղմեք Տեղադրել > Մոդուլներև ապա տեղադրեք ներքևի VBA կոդը նոր բացվող Մոդուլի պատուհանում:

VBA. Excel- ում տպեք մի քանի ընտրված շարքեր մեկ էջում

Sub Extract_to_Print()
Dim Rg As Range, Rg1 As Range, Rg2 As Range
Dim xAddress As String
Dim xSht As Worksheet
Dim I As Long
Dim xScreenUpdate As Boolean
Dim xAlert As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select ranges you will print:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xSht = ThisWorkbook.Worksheets.Add
I = 1
For Each Rg1 In Rg.Areas
Rg1.Copy xSht.Range("A" & I)
I = I + Rg1.Rows.Count
Next
xSht.PrintOut
xSht.Delete
Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert
End Sub

3. Մամուլ F5 ստեղնը կամ սեղմել Վազում այս VBA- ն գործարկելու կոճակը:

4. Այժմ հայտնվում է Kutools for Excel երկխոսության տուփ: Խնդրում ենք ընտրել բազմաթիվ տողեր, որոնք դուք տպելու եք և կտտացրեք այն OK այս տողերը տպելու կոճակը:

ՆշումՊահելը Ctrl ստեղն, միաժամանակ կարող եք ընտրել բազմաթիվ ոչ հարակից շարքեր:

Եթե ​​մենք կարողանանք պատճենել այս անընդմեջ շարքերը և կպցնել որպես հաջորդական տիրույթ այլ աշխատանքային թերթում, ապա դրանք կարող ենք հեշտությամբ տպել մեկ էջի վրա: Այս մեթոդը կներկայացնի Kutools- ի Excel- ի համար Պատճենելու տիրույթները օգտակար է դրանով զբաղվել:

1. Ստեղծեք նոր աշխատանքային թերթ, հաջորդ ընտրեք տողերը, որոնք դուք կտպեք ձեր սեղանից, և կտտացրեք Կուտոլս > Պատճենելու տիրույթները.

ՆշումՊահելը Ctrl ստեղնը, միաժամանակ կարող եք ընտրել բազմաթիվ անընդմեջ շարքեր:

2. Բացվող Պատճենել բազմակի տիրույթների երկխոսության դաշտում ստուգեք բոլորը տարբերակը եւ սեղմեք Ok կոճակը:

ՆշումՄանրամասն Ներառյալ շարքի բարձրությունը տարբերակ և Ներառյալ սյունի լայնությունը ընտրանքները պատճենելու են ընտրված տիրույթների տողի բարձրությունները և սյունների լայնությունները և տեղադրված են նպատակակետի տիրույթում:

3. Ընտրեք A1 բջիջը նոր ստեղծված աշխատանքային թերթում և կտտացրեք այն OK Button:

4. Մնացեք նպատակակետի աշխատանքային թերթում և կտտացրեք Կուտոլս > ջնջել > Deleteնջել դատարկ շարքերը > Ակտիվ թերթում.

Եվ հետո դուրս է գալիս երկխոսության տուփ և ցույց է տալիս, թե քանի տող է ջնջվել: Ուղղակի փակեք այն:

5. Սեղմեք Ֆայլ (Կամ Գրասենյակային կոճակ)> տպել տպել այս շարքերը:

Իրականում Kutools Excel դիզայնի համար Տպեք բազմակի ընտրության կախարդ մի քանի շարք ընդգրկել Excel- ում:

1: սեղմեք ձեռնարկություն > Տպագրություն > Տպեք բազմակի ընտրության կախարդ բացելու Տպելու բազմակի ընտրության մոգը:

2. Բացման տպման բազմակի ընտրության մոգում կտտացրեք Ավելացնել կոճակ  ավելացնել տողեր, որոնք միասին կտպագրեք և կտտացրեք այն Ավարտել կոճակը:

Նշումներ:

(1) կտտացնելուց հետո Ավելացնել կոճակ , մեկ աշխատանքային թերթում կարող եք ընտրել բազմաթիվ անընդմեջ տիրույթներ ՝ պահելով այն Ctrl բանալին, ապա ընտրելով դրանք մեկ առ մեկ;

(2) Մի շարք / տող հանելու համար Տպելու միջակայքերը ցուցակ, պարզապես ընտրեք այս միջակայքը / տողը և կտտացրեք այն ջնջել կոճակ.

(3) Այս օգտակար ծրագիրը չի աջակցում տպել ամբողջ տողերն ու սյունակները, օրինակ `ամբողջ շարքը $ 4- ը, $ 4, կամ ամբողջ սյունը $ B: $ B.

3. Ընտրված տողերը / միջակայքերը տեղադրվել են որպես կապակցված նկարներ նոր աշխատանքային թերթում: Առաջ անցեք կտտացնելու համար Ֆայլ (Կամ Գրասենյակային կոճակ)> տպել տպելու համար: