Több választás (minden nyomtatási terület) kötegelt nyomtatása egy oldalon az Excel programban

Itt arról fogok beszélni, hogy több kiválasztott sort nyomtasson egy oldalra az Excel VBA-val. Kérjük, tegye a következőket:

1. nyomja meg más + F11 gombokat egyidejűleg a Microsoft Visual Basic for Applications ablak megnyitásához.

2. kettyenés betétlap > Modulok, majd illessze be az alábbi VBA kódot egy új nyíló Modul ablakba.

VBA: Több kijelölt sor nyomtatása egy oldalon az Excel programban

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. nyomja meg F5 vagy kattintson a gombra futás gombra a VBA futtatásához.

4. Most egy Kutools for Excel párbeszédpanel jelenik meg. Kérjük, válasszon ki több sort, amelyeket ki szeretne nyomtatni, majd kattintson a gombra OK gombra a sorok kinyomtatásához.

Megjegyzések: A Ctrl gombot, egyszerre több nem szomszédos sort is kiválaszthat.

Ha ezeket a nem egymást követő sorokat ki tudjuk másolni, és egymást követő tartományként beilleszteni egy másik munkalapra, könnyen kinyomtathatjuk őket egy oldalra. Ez a módszer bemutatja a Kutools for Excel alkalmazást Másolási tartományok segédprogram foglalkozni vele.

1. Hozzon létre egy új munkalapot, majd válassza ki a táblázatból kinyomtatni kívánt sorokat, majd kattintson a gombra Kutools > Másolási tartományok.

Megjegyzések: A Ctrl gombot, egyszerre több egymást követő sort is kiválaszthat.

2. A megnyíló Több tartomány másolása párbeszédpanelen ellenőrizze Minden termék opciót, és kattintson a Ok gombot.

Megjegyzések: A A magasságot is beleértve lehetőség és Az oszlopszélességet is beleértve Az opciók átmásolják a kijelölt tartományok sormagasságát és oszlopszélességét, és beillesztik a céltartományba.

3. Jelölje ki az új cellában az A1 cellát, majd kattintson a gombra OK Gomb.

4. Maradjon a cél munkalapon, és kattintson Kutools > töröl > Üres sorok törlése > Aktív lapban.

Ekkor megjelenik egy párbeszédpanel, amely megmutatja, hogy hány sort töröltek. Csak csukja be.

5. Kattintson a filé (Vagy Iroda gomb)> hogy kinyomtassa ezeket a sorokat.

Valójában Kutools for Excel tervez Többszörös kijelölés varázsló nyomtatása több tartomány együttes kinyomtatásához az Excelben.

1. kettyenés Vállalkozás > Nyomtatás > Többszörös kijelölés varázsló nyomtatása a Többszörös kijelölés varázsló megnyitásához.

2. A Megnyitás többszörös kiválasztása varázslóban kattintson a gombra hozzáad gomb  sorok hozzáadásához, amelyeket kinyomtat, és kattintson a gombra befejez gombot.

Megjegyzések:

(1) Miután rákattintott a hozzáad gomb , kiválaszthat egy sor munkalapon több inkonzisztens tartományt a Ctrl gombot, majd egyesével kijelölve őket;

(2) Tartomány / sor eltávolítása a Nyomtatási tartományok listához, csak válassza ki ezt a tartományt / sort, és kattintson a gombra töröl gomb.

(3) Ez a segédprogram nem támogatja a teljes sorok és oszlopok, például a teljes sor nyomtatását $ 4: $ 4, vagy a teljes oszlop $ B: $ B.

3. A kijelölt sorokat / tartományokat összekapcsolt képként illesztette be egy új munkalapba. Kattintson előre filé (Vagy Iroda gomb)> hogy kinyomtassa.