Mit Makro Virtuelle Drucker (PDF) ansteuern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Druck dim i as integer for i = 2 to sheets.count 'i=2 um vom 2. Blatt anzufangen und dadurch "Quelldaten" _ auszulassen Sheets(i).PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True next i End Sub

Hallo Tom,
erst noch mal Entschuldigung, dass ich mich im Namensdickicht verirrt und meinen Beitrag an Yusuf gerichtet habe.
Was Du möchtest sollte sich eigentlich umsetzen lassen. Die Schwierigkeit besteht lediglich darin, dass man als erstes ein Arbeitsblatt selektieren muß ohne den Paramter "Replace" auf "false" zu setzen, damit die aktuelle Selektion nicht (möglicherweise ungewollt) mit einbezogen wird.
Wenn Du also Arbeitsblätter hast, die auf jeden Fall gedruckt werden sollen, selektierst Du sie als erstes und fügst dann die anderen je nach Auswahl des Anwenders hinzu, z.B. mit
If me.checkbox1.value = true then
Sheets("Deckblatt").select false
end if
Wenn es keine Arbeitsblätter gibt, die in jedem Fall gedruckt werden müssen, wird der Code etwas umfangreicher (es sei denn, jemand hat eine bessere Idee). Als Lösung stelle ich mir vor, dass für jede Checkbox geprüft werden muß, ob die vorhergehenden aktiviert waren (also bereits ein erstes Blatt makriert ist) oder nicht. Der Code könnte so aussehen:
If Me.Checkbox1.value = true then
Sheets("Deckblatt").select
end if
If Me.checkbox2.value = true then
Sheets("Einleitung").select not Me.Checkbox1.value
end if
If Me.checkbox3.value = true then
Sheets("Übersicht").select not (Me.Checkbox1.value or Me.Checkbox2.value)
end if
usw. ...
Zur Erläuterung: wenn die Erste oder die zweite Checkbox oder beide aktiviert waren, ergibt "(Me.Checkbox1.value or Me.Checkbox2.value)" true - dann wurde schon ein Blatt selektiert, dann muß Select mit false aufgerufen werden, was Du mit der Negation durch "Not" erreichst.
Aber Achtung: wenn keine Checkbox markiert ist, würde das aktuelle Arbeitsblatt ausgedruckt, denn das ist ja markiert. Denkbar wäre eine Abfrage wie
If (me.checkbox1.value and me.checkbox2.value and #alle weiteren Checkboxen#) = false then
msgbox "Keine Arbeitsblätter für den Ausdruck markiert!"
else
#Druckbefehl#
end if
Gruß, Jürgen

Hallo Tom,
dafür hast Du zwei Möglichkeiten:
wenn Du weißt, welches Dein erstes Blatt "Vorgang xy" ist und bist sicher, dass von diesem bis zum letzten Blatt nur solche vom Typ "Vorgang XY" sind :
Dim n as integer
...
If Me.CheckBox6.Value = True Then
'Das erste markieren und dafür sorgen, dass es ggfs. das einzige ist (falls nur die Vorgänge drucken)
Sheets(5).Select Not (Me.CheckBox1.Value Or Me.CheckBox2.Value Or Me.CheckBox3.Value Or Me.CheckBox5.Value)
'die restlichen hinzufügen
For n = 6 to Sheets.count
Sheets(n).Select false
next
End If
wenn die obigen Bedingungen nicht erfüllt sind, aber alle relevanten Blätter über ihren Namen indentifiziert werden können, geht die folgende Lösung:
Dim Blatt as worksheet
...
'Dafür sorgen, dass irgendein Vorgangsblatt markiert wird, falls nur Vorgänge gedruckt werden sollen
Sheets("Vorgang 01").select Not (Me.CheckBox1.Value Or Me.CheckBox2.Value Or Me.CheckBox3.Value Or Me.CheckBox4.Value Or Me.CheckBox5.Value)
'Alle Blätter nach solchen durchsuchen, deren Namen mit "Vorgang" beginnt, und ebenfalls markieren
For each Blatt in Sheets
If Left(Blatt.Name, 7") = "Vorgang" then
blatt.select false
end if
next
Falls das ganze groß-/kleinschreibungstolerant sein soll:
If UCase(Blatt.Name, 7") = "VORGANG" then
Gruß, Jürgen

Sub Druck() dim i as integer Application.DisplayAlerts = False 'schaltet Dialoge ab for i = 2 to sheets.count 'i=2 um vom 2. Blatt anzufangen und dadurch "Quelldaten" _ auszulassen Sheets(i).PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True next i Application.DisplayAlerts = true 'schaltet Dialoge ein End Sub

Beliebteste Forumthreads (12 Monate)

Mit Makro Virtuelle Drucker (PDF) ansteuern

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mit Makro Virtuelle Drucker (PDF) ansteuern

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread