VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Sichtbare Blätter drucken

Gruppe

Druck

Bereich

Arbeitsblatt

Thema

Sichtbare Blätter drucken

Problem

Wie kann ich alle eingeblendeten Arbeitsblätter einer Arbeitsmappe über ein VBA-Makro ausdrucken?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: basMain

Sub PrintVisibles()
   Dim wks As Worksheet
   For Each wks In Worksheets
      If wks.Visible = True Then
         wks.PrintPreview
      End If
   Next wks
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Druck und Arbeitsblatt