Batch drukuje wiele zaznaczeń (wszystkie obszary drukowania) na jednej stronie w programie Excel

Tutaj opowiem o drukowaniu wielu zaznaczonych wierszy na jednej stronie za pomocą VBA w Excelu. Wykonaj następujące czynności:

1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć okno Microsoft Visual Basic for Applications.

2. kliknij wstawka > Moduł, a następnie wklej poniższy kod VBA do nowego otwierającego okna modułu.

VBA: Drukuj wiele wybranych wierszy na jednej stronie w programie 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. naciśnij F5 lub kliknij run przycisk, aby uruchomić ten VBA.

4. Teraz pojawia się okno dialogowe Kutools for Excel. Wybierz wiele wierszy, które chcesz wydrukować, i kliknij OK aby wydrukować te wiersze.

Note: Trzymanie Ctrl klawisz, można jednocześnie wybrać wiele nieprzylegających wierszy.

Jeśli uda nam się skopiować te niespójne wiersze i wkleić jako kolejny zakres w innym arkuszu, możemy łatwo wydrukować je na jednej stronie. Ta metoda wprowadzi Kutools dla Excela Kopiuj zakresy narzędzie, aby sobie z tym poradzić.

1. Utwórz nowy arkusz, następnie wybierz wiersze, które chcesz wydrukować ze swojej tabeli i kliknij Kutools > Kopiuj zakresy.

Note: Trzymanie Ctrl klawisz, można jednocześnie zaznaczyć wiele kolejnych wierszy.

2. W otwartym oknie dialogowym Kopiuj wiele zakresów zaznacz Wszystkie kategorie opcję i kliknij przycisk Ok przycisk.

Note: the W tym wysokość wiersza opcja i W tym szerokość kolumny opcje skopiują wysokości wierszy i szerokości kolumn wybranych zakresów i wkleją do zakresu docelowego.

3. Wybierz komórkę A1 w nowo utworzonym arkuszu i kliknij OK Przycisk.

4. Pozostań w docelowym arkuszu i kliknij Kutools > Usuń > Usuń puste wiersze > W aktywnym arkuszu.

Następnie pojawia się okno dialogowe i pokazuje, ile wierszy zostało usuniętych. Po prostu zamknij.

5. Kliknij filet (lub Przycisk pakietu Office)> wydrukować te wiersze.

Właściwie Kutools dla projektów Excel Drukuj Kreatora wielokrotnego wyboru aby wydrukować wiele zakresów razem w programie Excel.

1. kliknij Enterprise > Druk > Drukuj Kreatora wielokrotnego wyboru aby otworzyć Kreatora drukowania wielokrotnego wyboru.

2. W otwartym Kreatorze drukowania wielokrotnego wyboru kliknij Dodaj przycisk  aby dodać wiersze, które wydrukujesz razem, i kliknij koniec przycisk.

Uwagi:

(1) Po kliknięciu Dodaj przycisk , możesz zaznaczyć wiele niespójnych zakresów w jednym arkuszu, przytrzymując Ctrl klawisz, a następnie wybierając je jeden po drugim;

(2) Aby usunąć zakres / wiersz z Zakresy do druku listy, po prostu wybierz ten zakres / wiersz i kliknij Usuń przycisk.

(3) To narzędzie nie obsługuje drukowania całych wierszy i kolumn, takich jak cały wiersz $ 4: $ 4lub cała kolumna $ B: $ B.

3. Wybrane wiersze / zakresy zostały wklejone jako połączone obrazy w nowym arkuszu. Śmiało, aby kliknąć filet (lub Przycisk pakietu Office)> wydrukować.