PRINTER setting

User avatar
sal21
PlatinumLounger
Posts: 4576
Joined: 26 Apr 2010, 17:36

PRINTER setting

Post by sal21 »

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

User avatar
SpeakEasy
5StarLounger
Posts: 742
Joined: 27 Jun 2021, 10:46

Re: PRINTER setting

Post by SpeakEasy »

Printing starts at the printer object's .CurrentX and .CurrentY

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
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