Set max lines to print ??

[new_learner]

Hi..I have problem with printing function in vb..

I have a program which will display data taken from the database and put into a flexgrid. Then, when user want to print it, they just choose which column to print..

Currently, the papersize set to the printer is Letter type. However, the user usually use A4 size paper to print instead of Letter type paper (I dunno why they don't want to use Letter paper ) and make the bottom line of the text blurred or half printed..

my question :
is there any way i can set the maximum line to print? and when it reached the max line, it will automatically go to the next page?? this is because the bottom line shud have at least 1 inch space..

this is the portion of my code :
(i have to use the printDlg function because the common dialog box just cannot work correctly in my program)

Me.rtbPrintInfo.SelFontName = "Courier New"
'Me.rtbPrintInfo.SelFontSize = 7
Me.rtbPrintInfo.LoadFile fileName, rtfText
 
Dim NumCopies As String
Dim Index As Integer
Dim printDlg As PrinterDlg
Dim NewPrinterName As String
Dim objPrinter As printer
Dim strsetting As String
 
Set printDlg = New PrinterDlg
 
printDlg.printerName = printer.DeviceName
printDlg.DriverName = printer.DriverName
printDlg.Port = printer.Port
printDlg.PaperBin = printer.PaperBin
printDlg.PaperSize = printer.PaperSize

[Andrew G]

You must check for the lines drawn so far and then use
printer.NewPage

to make a new page

[new_learner]

thanks for the quick reply..
but, i dunno how to get the lines drawn so far..can u explain more?

below is the current codes for printing..thanks!

Me.rtbPrintInfo.SelFontName = "Courier New"
'Me.rtbPrintInfo.SelFontSize = 7
Me.rtbPrintInfo.LoadFile fileName, rtfText
 
Dim NumCopies As String
Dim Index As Integer
Dim printDlg As PrinterDlg
Dim NewPrinterName As String
Dim objPrinter As printer
Dim strsetting As String
 
Set printDlg = New PrinterDlg
 
printDlg.printerName = printer.DeviceName
printDlg.DriverName = printer.DriverName
printDlg.Port = printer.Port
printDlg.PaperBin = printer.PaperBin
printDlg.PaperSize = printer.PaperSize
 
' Set the flags for the PrinterDlg object using the same flags as in the
' common dialog control. The structure starts with VBPrinterConstants.
printDlg.flags = VBPrinterConstants.cdlPDNoSelection _
                 Or VBPrinterConstants.cdlPDNoPageNums _
                 Or VBPrinterConstants.cdlPDReturnDC
printer.TrackDefault = False
Index = 0
For Each objPrinter In Printers
    Index = Index + 1
Next
 
If Index > 1 Then
    printDlg.CancelError = True
    On Error GoTo ErrHandler
    If Not printDlg.ShowPrinter(Me.hwnd) Then
        Exit Sub
    End If
    NewPrinterName = UCase$(printDlg.printerName)
    If printer.DeviceName <> NewPrinterName Then
        For Each objPrinter In Printers
           If UCase$(objPrinter.DeviceName) = NewPrinterName Then
                Set printer = objPrinter
           End If
        Next
    End If
    NumCopies = printDlg.Copies
    printer.Orientation = 2
    If NumCopies > 0 Then
        For i = 1 To NumCopies
            Me.rtbPrintInfo.SelPrint printer.hdc
        Next i
    End If
ElseIf Index = 1 Then
    printer.Orientation = 2
    Me.rtbPrintInfo.SelPrint printer.hdc
ElseIf Index = 0 Then
    mhMain_triggerTime (True)
    MsgBox "Printer not installed!"
    mhMain_triggerTime
    Exit Sub
End If

[Andrew G]

Ahh. I thought you meant using Printer.Print

In that case I have no idea sorry.

[new_learner]

i see..anyway, thanks Andrew G
can anyone help me? thanks!