<div>
NB: I forgot to tell you to manage the skip to new pages.<br />
<br />
Do as follow :<br />
<br />
nMageHeight = Printer.Height - Printer.ScaleHeight<br />
<br />
' *** Open the file <br />
nSgmlIn = FreeFile <br />
Open sSgmlCurrent For Input Access Read As #nSgmlIn <br />
Do While EOF(nSgmlIn) = False <br />
&nbsp; &nbsp;Line Input #nSgmlIn, sTmp <br />
<br />
&nbsp; &nbsp;If Printer.CurrentY &gt;&nbsp;Printer.Height - nMageHeight then<br />
&nbsp; &nbsp; &nbsp; Printer.NewPage<br />
&nbsp; &nbsp;End If<br />
<br />
&nbsp; &nbsp;printer.print stmp <br />
Loop <br />
Close #nSgmlIn <br />
<br />
Printer.EndDocument <br />
<br />
<br />

</div>


NB: I forgot to tell you to manage the skip to new pages.

Do as follow :

nMageHeight = Printer.Height - Printer.ScaleHeight

' *** Open the file
nSgmlIn = FreeFile
Open sSgmlCurrent For Input Access Read As #nSgmlIn
Do While EOF(nSgmlIn) = False
   Line Input #nSgmlIn, sTmp

   If Printer.CurrentY > Printer.Height - nMageHeight then
      Printer.NewPage
   End If

   printer.print stmp
Loop
Close #nSgmlIn

Printer.EndDocument




<div>
Bought This Question.<br />

</div>


<div>
<div class="content wysiwyg-content">
How can I send to the printer a text file?<br />
There is a command or a function to print a file?
</div>
</div>


How can I send to the printer a text file?
There is a command or a function to print a file?

Printing a text file

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.