title image


Smiley Re: Daten in Listbox schreiben und auf Drucker ausgeben ????
Dieser Code könnte dir weiterhelfen, am Anfang werden die Drucker in eine Comboliste gesetzt (ähnelt ja deinen neuen Datensätzen die du anhängen willst). Am Schluss wird schön Zeile für Zeile gedruckt (im Beispiel im Querformat).



Dim Prn As Printer



If Me.Combo1.Text = "" Then

MsgBox "Sie haben keinen Drucker ausgewählt!", _

vbInformation, "Error"

Else

For Each Prn In Printers



'der ausgewählte als Standard

If Prn.DeviceName = Me.Combo1.Text Then

Set Printer = Prn

Exit For

End If

Next Prn



'hier wird gedruckt

Printer.Orientation = vbPRORLandscape

Printer.PaintPicture Form1.Picture1.Image, 0, 500 'falls noch ein Bild dazu soll

Printer.Print "Hier wird gedruckt!"

Printer.Print "und die nächste Zeile"

Printer.EndDoc 'Ab zum Drucker damit



Güße,



Michael Burk


Das Leben ist eines der Härtesten

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: