Better quality printing

[Challenger10]

Hi all
I wrote a program that prints labels which works good. The only problem is that the quality of print is not the best. It print on a Zebra 140 and before I used my program to print the quality was much better. My HP 1000 also shows block line when printing an "A". Here is the code that does the setup for printing.
Thanks.

Private Sub cmdPrintLabels_Click()
Dim NumberOfCopies As Integer
Load Form2
Printer.PrintQuality = 300
Form2.txtModelNumberTop.Text = txtModelNumber
Form2.txtModelNumberBottom.Text = txtModelNumber
Form2.txtCustomerDateTop.Text = txtTopCustomerDate
Form2.txtCustomerDateBottom.Text = txtBottomCustomerDate
Form2.txtShiftSerialNumberTop.Text = txtTopShiftSerialNumber
Form2.txtShiftSerialNumberBottom.Text = txtBottomShiftSerialNumber

Printer.FontSize = 22
Dim X As Integer
Dim Y As Integer
For NumberOfCopies = 1 To txtNumberOfLabels
Printer.Orientation = 1
X = 0
Y = 0
Printer.CurrentX = X
Printer.CurrentY = Y
'Printer.PrintQuality = -4
Form2.PrintForm
Printer.EndDoc
txtSerialNumber = txtSerialNumber + 1
txtSerialNumber = Format(txtSerialNumber, "000")
txtTopShiftSerialNumber = ShiftCode & txtSerialNumber
Form2.txtShiftSerialNumberTop.Text = txtTopShiftSerialNumber
txtBottomShiftSerialNumber = ShiftCode & txtSerialNumber
Form2.txtShiftSerialNumberBottom.Text = txtBottomShiftSerialNumber
Next
End Sub


Anything can be done, imagination is the limit....

 

[johnwm]

Form2.Printform only does a screen print of your form (effectively a bitmap). You will do much better using the Printer.Print method

Good Luck
johnwm
________________________________________________________
To get the best from these forums read faq731-376 before posting
Steam Engine enthusiasts
Steam Engine Prints

 

[Challenger10]

Hi John
Thank you very much for the fast reply and problem solving. I tried it with one of the fields and it printed good looking text.
Problem solved.

Thanks again

Serge