Ein paar fragen zu Printer.Print !

Computer: Software & Programmierung Visual Basic
#1

Nabend,

Ich drucke im moment wie wild mit folgendem Code auf meinem Drucker.

Printer.ScaleMode = 6 ' Maßeinheit auf mm setzen
Printer.CurrentY = 15 ' oberer Seitenrand 1,5 cm (15mm)
Printer.FontSize = 20 'setzt die Schriftgröße auf 20
Printer.Print vbTab & " " ' Leere Zeile
Printer.Print vbTab & "Zeile 1" 'Text1
Printer.Print vbTab & "Zeile 2" & vbCrLf 'Text2 
Printer.Print vbTab & " Zeile3 mit vbcrlf" 'Text3 
Printer.EndDoc 'Druckauftrag GO!

Das macht spaß und funktioniert auch,
nun würde ich aber gern wenn möglich das ganze an einen Drucker schicken der nicht als Standard definiert ist. Kann mir jemand sagen ob es eine möglichkeit gibt einen drucker festzulegen ?
Wenn das Funktioniert werde ich den Druck an mein Installiertes FAx schicken. Optimaler weise würde ich das auch gern automatieseren aber erstmal reicht es wenn ich den Absender selber auswähle.

Danke mfg joe

#2

Hallo,

je nach dem mit welcher VBA/Office Version du arbeitest, geht das umschalten des Standartdruckers recht einfach: Application.Printer = Appication.Printers(xx). Details in der VBA online Hilfe.

Ansonsten geht es ueber die Manipilation der Win.ini, den Beispielcode findest du auf der Microsoft MSDN Seite.

Tschau
Peter

#3

Moin,
ich nutze vb6:/ da scheint es Application. nicht zu geben.
änderung der WIn.ini finde ich nicht so gut :confused:
das sind die einzigen beiden möglichkeiten ?

danke

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Hallo,

nun würde ich aber gern wenn möglich das ganze an einen
Drucker schicken der nicht als Standard definiert ist.

dazu musst Du wissen, unter welchem Namen der Drucker erreichbar ist und den bei ‚MeinDrucker‘ eintragen.

Dim Dr As Printer
For Each Dr In Printers
 If Dr.DeviceName = 'MeinDrucker' Then
 Set Printer = Dr
 Exit For
 End If
Next

Gruß, Rainer

PS. Die Schreibweise des Namens kann überraschend sein, wenn Du im Umgang damit wenig Übung hast. Setze am Besten einen Stoppunkt auf die erste Zeile in der Schleife, dann kannst Du Dir die Namen, wie sie gefunden werden, ansehen und Deinen Code entsprechend anpassen.