I need to printer.doc to the default printer, but set left margin, and font...
My test code:
Private Sub Command2_Click()
Me.Text1.SetFocus
Printer.TrackDefault = True
Printer.FontName = "Consolas"
Printer.FontSize = 9
For I = 0 To Me.List1.ListCount
Printer.Print Me.List1.List(I)
Next I
Printer.EndDoc
Me.Text1.SetFocus
End Sub
PRINTER setting
-
- 5StarLounger
- Posts: 742
- Joined: 27 Jun 2021, 10:46
Re: PRINTER setting
Printing starts at the printer object's .CurrentX and .CurrentY
So, for this relatively simple challenge, you just need to manage those,
e.g
For more complex printing requirements my preference is based on an old MS KB article, a copy of which can be found here: https://www.betaarchive.com/wiki/index. ... ive/146022
but that is overkill for your simple requirements here
So, for this relatively simple challenge, you just need to manage those,
e.g
Code: Select all
Printer.TrackDefault = True
Printer.FontName = "Consolas"
Printer.FontSize = 9
Printer.CurrentY = 250 'top margin
For i = 1 To 4
Printer.CurrentX = 150 ' left margin
Printer.Print "testing" & i
Next
Printer.EndDoc
but that is overkill for your simple requirements here