Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Gruppierung

Gruppierung
29.01.2007 12:28:09
Rudolf
Hallo Experten,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gruppierung
29.01.2007 15:27:44
ingoG
Hallo Rudi,
ersetze einfach
'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
durch
Application.ActivePrinter = "FreePDF XP auf Ne01:"
Worksheets(Variable).PrintOut
Gruß Ingo
PS eine Rückmeldung wäre nett...
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige