Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Sichtbare Blätter drucken

Gruppe

Arbeitsblatt

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