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
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
Moin,
ich nutze vb6:/ da scheint es Application. nicht zu geben.
änderung der WIn.ini finde ich nicht so gut 
das sind die einzigen beiden möglichkeiten ?
danke
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
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.