Hi,
I was wondering how you can print a text file with only a certain number of lines on each page.

The code I have is not working.

Here is my code: (VB3)

Code:

Dim IFile%, sLine$, sText$
IFile = FreeFile
iInputUserFileLines = 1

'Set Cancel to True
frmViewEntries.CMDialog1.CancelError = True
On Error GoTo PrinterErr


'Display the Box
frmViewEntries.CMDialog1.Action = 5

'Get user-selected values from box
BeginPage = frmViewEntries.CMDialog1.FromPage
EndPage = frmViewEntries.CMDialog1.ToPage
NumCopies = frmViewEntries.CMDialog1.Copies

For i = 1 To NumCopies

Open sInputUserFileName For Input As #IFile
Do While Not EOF(IFile)
        Line Input #IFile, sLine
        'Printer.Print
        sText = sText & Trim(sLine) & Chr(13) & Chr(10)
        iInputUserFileLines = iInputUserFileLines + 1
        If iInputUserFileLines = 70 Then
        Printer.Print sText
        Printer.EndDoc
        Printer.NewPage
        iInputUserFileLines = 1
        'sText = ""
        End If
DoEvents
Loop
'DoEvents

Close #IFile
Printer.EndDoc
Next
exit sub

PrinterErr:
Exit Sub
Please help.
Thanks,
JazzBass

Edited by JazzBass on 02-25-2000 at 01:19 PM