Gruppierung
29.01.2007 12:28:09
Rudolf
ich habe folgendes Makro erstellt, mit dem ich über eine UserForm verschiedene Tabellenblätter auswählen und auch drucken kann.
Mein Problem: Es werden alle Blätter einzeln ausgedruckt. Ich möchte aber alle ausgewählten Tabellenblätter in ein PDF-Dokument drucken. Könnt Ihr mit helfen?
Danke
Rudi
Und hier das Makro:
Private Sub CommandButton3_Click()
'Speichern aller Einträge der Listbox 2 in der Vriablen "Variable"
ReDim Variable(0)
For i = 0 To ListBox2.ListCount - 1
ReDim Preserve Variable(i + 1)
Variable(i) = ListBox2.List(i)
Next
'Nun sind alle Einträge der Listbox in der Variablen
'gespeichert und können ausgelesen werden
'Auslesen der Variablen z. B. so:
For n = 0 To i - 1
'MsgBox Variable(n)
Application.ActivePrinter = "FreePDF XP auf Ne01:"
Worksheets(Variable(n)).PrintOut
'Application.ActivePrinter = "FreePDF XP auf Ne01:"
Next
End Sub
Anzeige