Hallo Experten,
Ich möchte über VBA dass der Ausdruck mit Standardqualität und nicht als Entwurfsqualität gedruckt wird.
Bisher nutze ich folgenden Code:
With Sheets("Versorgungsanalyse")
.Visible = True
.PageSetup.LeftFooter = "&8" & ThisWorkbook.Worksheets("Dateneingabe").Range("b395")
.PageSetup.CenterFooter = _
"&8Das Programm wurde mit größter Sorgfalt erstellt. " & Chr(10) & "Dennoch können Fehler vorhanden sein, für die wir keine Haftung übernehmen." & Chr(10) & "Bitte beachten Sie die Ausführungen >> Annahmen - Hinweise .PageSetup.RightFooter = "&8&D - &T"
.PrintOut
.Visible = False
End With
Wer kann mir helfen?
Danke im Voraus
viele grüsse
selma