printer margins

[scoutt]

I am using the following code and i would like to know how to control the margins for the print job.

Private Sub mnuPrint_Click()
Dim tPrintDlg As PrintDlg
Dim lFromPage As Integer
Dim lToPage As Integer
Dim lMin As Integer
Dim lMax As Integer
Dim lCopies As Integer
tPrintDlg.lStructSize = Len(tPrintDlg)
tPrintDlg.hwndOwner = Me.hwnd
tPrintDlg.hdc = hdc
tPrintDlg.Flags = 0
tPrintDlg.nFromPage = 0
tPrintDlg.nToPage = 0
tPrintDlg.nMinPage = 0
tPrintDlg.nMaxPage = 0
tPrintDlg.nCopies = 1
tPrintDlg.hInstance = App.hInstance
'lpPrintTemplateName = "Print Page"
 
Dim A
A = PrintDlg(tPrintDlg)
 
If A Then
lFromPage = tPrintDlg.nFromPage
lToPage = tPrintDlg.nToPage
lMin = tPrintDlg.nMinPage
lMax = tPrintDlg.nMaxPage
lCopies = tPrintDlg.nCopies
'Printing stuff here
		  Me.PrintForm
		  Printer.EndDoc
		  End If
  
End Sub

'Code improved by vBulletin Tool (Save as...)

thanks for your time and help.

Scoutt