Als Antwort auf diesen Beitrag
Hi
eigentlich ganz einfach, wenn jeder Druck ein eigener Druckauftrag sein kann (Seitenzählung, eigene PDF-Datei)
dim sh as Worksheet
for each sh in thisworkbook.worksheets
if sh.Cells(1, 1).value = "Drucken" then sh.printout 'oder Export als PDF
next
wenn man die Seiten in einen Druckauftrag haben möchte, dann muss man sie vorher als Gruppe selektieren und dann drucken.
dim sh as worksheet
dim check as boolean
check =true
for each sh in thisworkbook.worksheets
if sh.Cells(1, 1).value = "Drucken" then
sh.Select check
check = false
end if
next
ActiveWindow.selectedSheet.printout
Gruß Daniel