Postada em 01/04/2010 19:34 hs
Obrigado a todos já consgui fazer...
Open "Lpt1" For Output As #1
cabecalho = True
linha = 0
pag = 0
Do While linha <= 20 And pag <= 2
If cabecalho = True Then
Print #1, "----------------------------------------------"
Print #1, Tab(7); "P E D I D O"
Print #1, "----------------------------------------------"
cabe = False
pag = pag + 1
Else
'Print #1, linha
Print #1, linha
linha = linha + 1
If linha = 21 Then
cabe = True
linha = 1
End If
End If
Loop
Close #1
|
