PRINTER.ZOOM have no effect

[sal21]

Why the zoom setting not have effetct!!!

My code:

Private Sub Command1_Click()

Me.Text1.SetFocus

Printer.Font.Size = 8
Printer.Font.Name = "Consolas"
Printer.Zoom = 80

For I = 0 To Me.List1.ListCount
Printer.Print " " & Me.List1.List(I)
Next

Printer.EndDoc

Me.Text1.SetFocus

End Sub

[SpeakEasy]

The challenge here is that the print driver may not support the zoom property. And this applies to many of the Printer object settings, not just zoom. As Microsoft themselves say:

Note The effect of the properties of the Printer object depends on the driver supplied by the printer manufacturer. Some property settings may have no effect,

[sal21]

The challenge here is that the print driver may not support the zoom property. And this applies to many of the Printer object settings, not just zoom. As Microsoft themselves say:

Note The effect of the properties of the Printer object depends on the driver supplied by the printer manufacturer. Some property settings may have no effect,

[SpeakEasy]

You could always write your own printer output scaling code ...