Druck-Code überprüfen
04.01.2014 13:19:43
Heike
da wir in der Firma 1 Drucker aber mit verschiedenen Einstellungen nutzen, habe ich diesen auch 4x eingerichtet.
Wenn ich nun in Excel über DATEI/Drucken gehe, funktioniert es einwandfrei. Aber ich habe mir ein Symbol mit folgendem Code angelegt (dieses habe ich in der Recherche gefunden) und grundsätzlich druckt er mir 2 Kopien.
Und wenn ich im Druck-Dialogfenster: Statt auf OK auf ABBRECHEN klicke, druckt er dennoch 1 Seite.
Wäre toll, wenn ihr eine Lösung für dieses Problem hättet.
Der Code liegt in der PERSONAL.xlsb
Sub Drucker_Auswahl()
Dim strPrinterName As String
Dim varRueckgabe As Variant
strPrinterName = Application.ActivePrinter
varRueckgabe = Application.Dialogs(xlDialogPrinterSetup).Show
If varRueckgabe = "Falsch" Then Exit Sub
Application.Dialogs(xlDialogPrint).Show
ActiveSheet.PrintOut
Application.ActivePrinter = strPrinterName
End Sub
Vielen lieben DankHeike