Skupinsko natisnite več izbir (vsa področja tiskanja) na eno stran v Excelu

Tukaj bom govoril o tiskanju več izbranih vrstic na eno stran z VBA v Excelu. Naredite naslednje:

1. Pritisnite druga + F11 tipke hkrati, da odprete okno Microsoft Visual Basic for Applications.

2. klik Vstavi > Moduliin nato prilepite spodnjo kodo VBA v novo odpiralno okno modula.

VBA: Natisnite več izbranih vrstic na eno stran v Excelu

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. Pritisnite F5 ali kliknite Run za zagon tega VBA.

4. Zdaj se prikaže pogovorno okno Kutools za Excel. Izberite več vrstic, ki jih boste natisnili, in kliknite na OK za tiskanje teh vrstic.

Opombe: Držite Ctrl tipko, lahko hkrati izberete več sosednjih vrstic.

Če lahko te zaporedne vrstice kopiramo in prilepimo kot zaporedni obseg v drug delovni list, jih lahko enostavno natisnemo na eno stran. Ta metoda bo predstavila Kutools za Excel Obsegi kopiranja pripomoček za spopadanje s tem.

1. Ustvarite nov delovni list, nato izberite vrstice, ki jih boste natisnili iz tabele, in kliknite Kutools > Obsegi kopiranja.

Opombe: Držite Ctrl tipko, lahko hkrati izberete več zaporednih vrstic.

2. V začetnem pogovornem oknu Kopiraj več obsegov potrdite vsi in kliknite na Ok gumb.

Opombe: Vključno z višino vrstice možnost in Vključno s širino stolpca Možnosti bodo kopirale višine vrstic in širine stolpcev izbranih obsegov in jih prilepile v ciljni obseg.

3. Na novem ustvarjenem delovnem listu izberite celico A1 in kliknite OK Button.

4. Ostanite na ciljnem delovnem listu in kliknite Kutools > Brisanje > Izbriši prazne vrstice > V aktivnem listu.

Nato se odpre pogovorno okno in pokaže, koliko vrstic je bilo izbrisanih. Samo zapri.

5. Kliknite file (ali Gumb »Pisarna«)> Tiskanje da natisnete te vrstice.

Pravzaprav Kutools za Excel modele Natisni čarovnik za večkratno izbiro za skupno tiskanje več obsegov v Excelu.

1. klik Podjetje > Tiskanje > Natisni čarovnik za večkratno izbiro odpreti čarovnika za tiskanje večkratnega izbora.

2. V uvodnem čarovniku Print Multiple Selection čarovnika kliknite Dodaj Gumb  da dodate vrstice, ki jih boste skupaj natisnili, in kliknite Konec gumb.

Opombe:

(1) Po kliku na Dodaj Gumb , lahko na enem delovnem listu izberete več zaporednih obsegov, tako da držite tipko Ctrl tipko in jih nato izberite enega za drugim;

(2) Če želite odstraniti obseg / vrstico iz Obsegi za tiskanje izberite ta obseg / vrstico in kliknite Brisanje Gumb.

(3) Ta pripomoček ne podpira tiskanja celotnih vrstic in stolpcev, na primer celotne vrstice $ 4: $ 4ali celoten stolpec $ B: $ B.

3. Izbrane vrstice / obsegi so bili v nov delovni list prilepljeni kot povezane slike. Pojdi naprej file (ali Gumb »Pisarna«)> Tiskanje da ga natisnete.