[VB 6.0] Drucken

Computer: Software & Programmierung Programmierung allgemein
1

Hi,

Ich versuche mit VB den Inhalt einer TextBox zu drucken, was an sich auch kein Problem ist.
Nur wenn ich Schriftart oder -größe verändern möchte, dann will er nicht mehr.
Die Änderungen werden vom Compiler akzeptiert, haben aber keinerlei auswirkungen auf den Drucker.

hier der Programmauszug:

Private Sub cmdPrint_Click()
Printer.FontName = Text1.FontName
Printer.PrintQuality = vbPRPQDraft
Printer.Print Text1.Text
Printer.EndDoc
MsgBox „Seite wurde gedruckt…“
End Sub

Gruß und Dank,

Thomas

2

Servus Thomas,

ich hab es gerade mit deinem 1:1 kopierten Programmcode ausprobiert - bei mir funktioniert es einwandfrei, d. h. wenn ich die Schriftart ändere, wird sie auch geändert gedruckt.
Ich drucke hier im Büro auf einem HP LaserJet 5Si. Auf was für einen Drucker druckst du?

Roland

Ich versuche mit VB den Inhalt einer
TextBox zu drucken, was an sich auch kein
Problem ist.
Nur wenn ich Schriftart oder -größe
verändern möchte, dann will er nicht
mehr.
Die Änderungen werden vom Compiler
akzeptiert, haben aber keinerlei
auswirkungen auf den Drucker.

hier der Programmauszug:

Private Sub cmdPrint_Click()
Printer.FontName = Text1.FontName
Printer.PrintQuality = vbPRPQDraft
Printer.Print Text1.Text
Printer.EndDoc
MsgBox „Seite wurde gedruckt…“
End Sub

Gruß und Dank,

Thomas

3

Bei mir leider trotzdem nicht…

Ich drucke mit einem HP Laserjet 2100 Series PCL 6

Ich kann mir aber nicht vorstellen, daß es am Drucker liegt…

Trotzdem Danke,
Thomas

4

Sie müssen die Fontgröße auch im Drucker anpassen.

Printer.Fontsize = Text1.Font.Size

hier der Programmauszug:

Private Sub cmdPrint_Click()
Printer.FontName = Text1.FontName
Printer.PrintQuality = vbPRPQDraft
Printer.Print Text1.Text
Printer.EndDoc
MsgBox „Seite wurde gedruckt…“
End Sub