Hi,

I am printing a set of records generated in Rich Text Box(RTB) from DB2 database to printer using the following part of code.

dlgsaveReport.Flags = cdlPDReturnDC + cdlPDNoPageNums
If rtbPrintOrder.SelLength = 0 Then
dlgsaveReport.Flags = dlgsaveReport.Flags + cdlPDAllPages
Else
dlgsaveReport.Flags = dlgsaveReport.Flags + cdlPDSelection
End If



dlgsaveReport.ShowPrinter

On Error GoTo errorhandler
Printer.Orientation = dlgsaveReport.Orientation
Printer.Copies = dlgsaveReport.Copies
Printer.FontName = "Courier New"
'Printer.FontName = "Times New Roman"
Printer.ScaleMode = vbTwips

Screen.MousePointer = vbHourglass
'Printer.newpage
'Printer.EndDoc
'rtbPrintOrder.SelPrint Printer.hDC

Screen.MousePointer = vbNormal

I want to set up some margin(2 inches) at bottom of printed page so that i have blank margin at bottom.

Please suggest me how can I implement bottom marginn on printed page.

Regards,

Anurag