Ich drucke mit folgendem Makro ein Tabellenblatt aus. Der User kann sich den Drucker selbst auswählen. Jedoch wird danach komischerweise immer mit dem PDF Drucker gedruckt.
Application.ScreenUpdating = False
Application.EnableEvents = True
Application.DisplayAlerts = True
Inhalt = "PapierPan2_Click wurde gedrückt!"
dateiname = ActiveWorkbook.name
tabelle1.Range("C97").Value = dateiname
MsgBox "Achtung! Für den Ausdruck auf Papier keinen Drucker mit der Endung PS verwenden!!!"
printOK = Application.Dialogs(xlDialogPrinterSetup).Show
If printOK = False Then
Cancel = True
MsgBox "Da Sie keinen Drucker ausgewählt haben, wird abgebrochen!"
Exit Sub
End If
drucker = Application.ActivePrinter
Sheets("Prozess-Aktions-Notiz Seite1").Select
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&8X-10.04.01_V5/" & "&8" & tabelle1.Range("C97").Value
.RightFooter = "&8Blatt 1 von 1"
.CenterFooter = ""
.LeftMargin = Application.InchesToPoints(0.17)
.RightMargin = Application.InchesToPoints(0.17)
.TopMargin = Application.InchesToPoints(0.23)
.BottomMargin = Application.InchesToPoints(0.34)
.HeaderMargin = Application.InchesToPoints(0.18)
.FooterMargin = Application.InchesToPoints(0.16)
End With
Inhalt = "Druck Pan 2 x Papier ausgelöst" & drucker
Sheets(Array("Prozess-Aktions-Notiz Seite1")).Select
' Wasserzeichen Kopie wird über Unterschriftenfeld gelegt!
ActiveSheet.Shapes("Kopie").Select
Selection.ShapeRange.Left = 0
Selection.ShapeRange.Top = 0
Selection.ShapeRange.IncrementLeft 320
Selection.ShapeRange.IncrementTop 330#
ActiveWindow.SelectedSheets.PrintOut
Sheets(Array("Prozess-Aktions-Notiz Seite1")).Select
' Wasserzeichen Kopie wird nach rechts verschoben!
ActiveSheet.Shapes("Kopie").Select
Selection.ShapeRange.Left = 0
Selection.ShapeRange.Top = 0
Selection.ShapeRange.IncrementLeft 700
Selection.ShapeRange.IncrementTop 330#
ActiveWindow.SelectedSheets.PrintOut
Sheets("QXS_PAN-Datenaufnahme_Vorlage_V").Select
Application.ScreenUpdating = True
Danke im Voraus
Philipp