Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Drucken - Problem

Forumthread: Drucken - Problem

Drucken - Problem
14.09.2007 08:01:35
Philipp
Hallo!
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

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken - Problem
14.09.2007 08:52:50
Philipp
Selbst gelöst!
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige