Fehler im Druckmakro
05.04.2013 07:52:36
Albert
ich verwende nachfolgenden Codeschnipsel zum Ausdrucken von mehreren Seiten.
Sub Drucken()
'Druckmuster als Array bereitstellen
Sheets(Array("Auswertung", "Mitarbeiter", _
"Qualität", "Material", _
"Werkzeuge", "Empfehlungen A", "Empfehlungen B", _
"Empfehlungen C", "Empfehlungen D")).Select
If OptionButton1.Value = True Then
'Call Papierdruck
strPrinterName = Application.ActivePrinter
Application.Dialogs(xlDialogPrint).Show
' Hier den PrintOut befehl
End if
End Sub
Ich hab auch schon an den Seitenlayouts herumgespielt, in der Hoffnung, dass es vielleicht daran lag. Fehlanzeige...
Habt ihr vielleicht einen Input?
Dank vorab und Gruß
A.