Jak ustawić obszar wydruku za pomocą vba (z przykładami)

Możesz użyć następującej składni w VBA, aby ustawić obszar wydruku i wyświetlić podgląd wydruku przed faktycznym wydrukowaniem arkusza:

 Sub SetPrintArea()

    With Sheets("Sheet1")
     .PageSetup.PrintArea = Selection.Address
     .PrintPreview
    End With
    
End Sub

To konkretne makro ustawi obszar wydruku na aktualnie wybrany zakres komórek w arkuszu o nazwie Arkusz1 , a następnie wyświetli podgląd wydruku.

Uwaga : Jeśli chcesz wydrukować wybrany zakres bez podglądu, zamień .PrintPreview na .PrintOut w makrze.

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Jak ustawić obszar wydruku za pomocą VBA

Załóżmy, że mamy w Excelu następujący arkusz z danymi dotyczącymi różnych koszykarzy:

Możemy utworzyć następujące makro, aby określić obszar wydruku i wyświetlić podgląd wydruku przed faktycznym wydrukowaniem arkusza:

 Sub SetPrintArea()

    With Sheets("Sheet1")
     .PageSetup.PrintArea = Selection.Address
     .PrintPreview
    End With
    
End Sub

Załóżmy, że następnie wybieramy zakres komórek A2:B7 :

Kiedy uruchomimy to makro, obszar wydruku zostanie automatycznie ustawiony na wybrany zakres komórek i pojawi się następujące okno podglądu wydruku:

To pokazuje nam dokładnie, jak będzie wyglądać strona, jeśli wydrukujemy aktualnie wybrany zakres komórek.

Jeśli zmienimy wybrany zakres komórek, obszar wydruku zmieni się automatycznie.

Załóżmy na przykład, że zamiast tego wybieramy zakres A1:B11 :

Jeśli ponownie uruchomimy to makro, obszar wydruku zostanie automatycznie ustawiony na wybrany zakres komórek i pojawi się następujące okno podglądu wydruku:

Podgląd wydruku pokazuje teraz, że jeśli przystąpimy do drukowania, wydrukujemy zakres A1:B11 .

Uwaga : Pełną dokumentację właściwości PrintArea w VBA znajdziesz tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak drukować do pliku PDF
VBA: Jak korzystać z podglądu wydruku
VBA: jak tworzyć foldery