Wie Sie den aktiven Drucker mit einem Makro auslesen und festlegen Per Makro den Drucker auszuwählen, ist eine interessante Anwendung. Sie können das Verfahren einsetzen, um automatisch Kopien von Dokumenten auf bestimmten Druckern auszugeben.
Function ChangePrinter(rptToChange As String, rptPrinter As String) Dim rpt1 As Report, rpt2 As Report Report rptToChange, acViewDesign Report rptPrinter, acViewDesign Set rpt1 = Reports(rptToChange) Set rpt2 = Reports(rptPrinter) tDevNames = tDevNames acReport, rptPrinter, acSaveNo Report rptToChange, acViewPreview End Function
Hinweis: Die Funktion ChangePrinter kopiert die Eigenschaft PrtDevNames von einem Bericht in einen anderen. Vba drucken mit druckerauswahl free. Sie können dann die Druckoptionen, die Sie für die Berichte rptLaserPrinter und rptDotMatrix festgelegt haben, in einen bestimmten Bericht kopieren, den Sie ausdrucken möchten. Hinweis: Die Eigenschaft "acSaveNo" wird in der Zeile " acReport, rptPrinter, acSaveNo" des Codes verwendet, der zuvor in diesem Abschnitt dargestellt ist. Wenn Sie diese Option nicht verwenden und den Namen "PrtDevName" eines Nicht-Standarddruckers im Berichtsentwurf speichern, kann der Bericht den Drucker nicht finden, wenn er das nächste Mal ausgeführt wird. Die folgende Fehlermeldung wird angezeigt:
Dieses Dokument wurde für den Drucker
(dItem sTemp) Gleichzeitig gibt die Function zurück ob sie überhaupt einen Printer gefunden hat. Die Function wird im Beispiel vom Initialize aufgerufen. Ein Problem war für mich, den ActivePrinter in der ComboBox eizustellen, da dieser eine ergänzende Zeichenfolge hat (blabla:LPT1 während der Name des Druckers nur blabla ist). Also ein bisserl Getrickse und hoffen, dass nicht zwei gleiche Printer da rumlaufen. Sicherlich gibt es da noch eine bessere Lösung, überlasse ich Ihnen:-). Unser CommandButton macht nichts anderes als mit dem gewählten Drucker was rauszudrucken. Die PrintOut Methode sollte Ihnen bekannt sein und diese können Sie Ihren Bedürfnissen entsprechend anpassen. Druckerauswahl starten, per VBA - - - - - - Office-Loesung.de. Wichtig ist aber, den ActivePrinter wieder zurückzusetzen! Weitere Artikel der Gruppe: Verschiedenes Aus Excel VBA Nach oben
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von "GoCat" ( 17. Dezember 2014, 20:59) Sorry, ich schnalls nicht! Das mein Wunsch meine Programmier-Kenntnisse übersteigt is mir schon klar, aber ich kapier null-komma-nix was du in deinem Code machst.. (und die CP-Bremse find ich auch nicht... ) Könntest Du vielleicht mit dazu schreiben was du mit dem jeweiligen Befehl bezweckst? Vba drucken mit druckerauswahl in english. Erstens zum Dazu-Lernen und ausserdem wenn ich eine Funktion einbaue würd ichs gerne verstehen was ich mache... Ich bin ja mal echt positiv überrascht und verteile hiermit eine virtuelle Tüte Gummibärchen für ordentliche Programmdoku. Weiter so! An manchen Tagen gibt es zu allem Überfluss auch noch Ärger! Rainman schrieb: ordentliche Programmdoku Das meiste sind allerdings Grundlagen, die würden dann nicht mehr dokumentiert werden. Ich kriegs nicht hin.... Jetzt kommt eine Fehlermeldung: "Der Wert vom Typ "intForm" kann nicht in "intDocument" konvertiert werden. " Hab am Anfang ganz vergessen zu sagen das ich MS Visual Studio Express 2012 verwende.... EDIT: hab hier noch was gefunden: ".