Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1344to1348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Druck-Code überprüfen
04.01.2014 13:19:43
Heike
Hallo,
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 Dank
Heike

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druck-Code überprüfen
04.01.2014 13:38:36
ransi
Hallo Heike
Machs doch genauso wie im Dialogs(xlDialogPrinterSetup).
varRueckgabe=Application.Dialogs(xlDialogPrint).Show
If varRueckgabe = "Falsch" Then Exit Sub
ActiveSheet.PrintOut
ransi

AW: Druck-Code überprüfen
05.01.2014 16:21:35
Heike
Hallo ransi,
entschuldigung, dass ich mich so spät melde, aber mein PC hat sich verabschiedet.
Werde deinen Vorschlag sofort morgenfrüh in der Firma ausprobieren. Vielen Dank schon einmal.
Bis morgen
Gruß
Heike

AW: Druck-Code überprüfen
06.01.2014 08:55:44
Heike
Hallo ransi,
klappt leider nicht. Ergebnis sind 2 Ausdrucke.
Gruß
Heike

AW: Druck-Code überprüfen
06.01.2014 13:27:54
fcs
Hallo Heike,
du muss auch das Rückgabe-Ergebnis des Druckendialogs prüfen und nur bei OK ggf. das aktive Blatt nochmals drucken.
Allerdings verstehe ich die zusätzliche Anweisung
ActiveSheet.Printout
nicht. Wenn du mehrere Kopien drucken willst, dann kannst die Anzahl doch im Drucken-Dialog einstellen.
Meiner Meinung nach müsste das Makro etwa wie folgt aussehen.
Gruß
Franz
Sub Drucker_Auswahl()
Dim strPrinterName As String
Dim varRueckgabe As Variant
strPrinterName = Application.ActivePrinter
varRueckgabe = Application.Dialogs(xlDialogPrinterSetup).Show
If varRueckgabe = False Then Exit Sub
varRueckgabe = Application.Dialogs(xlDialogPrint).Show
Select Case varRueckgabe
Case False
'Abbrechen oder Seitenvorschau
Case True
'weiteren Ausdruck erstellen
ActiveSheet.PrintOut
Case Else
'do nothing
End Select
Application.ActivePrinter = strPrinterName
End Sub

Anzeige
AW: Druck-Code überprüfen
06.01.2014 17:52:07
Heike
Hallo Franz,
danke für deine Unterstützung, leider ist dann heute noch das Internet ausgefallen, so dass ich jetzt von privat schreibe. Ich werde jetzt mal an meinem Lapi das Drucken "nachbauen".
Melde mich gleich.
Gruß
Heike

AW: Druck-Code überprüfen
06.01.2014 18:25:58
Heike
Hallo Franz,
also bei mir klappt es jetzt wunderbar, und zwar hast du die Lösung geliefert mit:
"Allerdings verstehe ich die zusätzliche Anweisung ActiveSheet.Printout nicht"
Ich habe es einfach auskommentiert und schon klappte es.
Hoffe auch, in der echten Umgebung.
Vielen Dank, ansonsten melde ich mich noch einmal.
Schönen Abend
Liebe Grüße
Heike
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige