Now the Printdos classroom, this printing for the printers in net of windows
or printers USB.
It can use as
In class
oPrint:=Printdos():New("SELECT") //select the printer
oPrint:Say(1, 1, "Teste printing line 1 col ")
oPrint:Say(2 1, "99988877766", "@R 999.999.999-99")
oPrint:End()
or
oPrint:=Printdos():New("DEFAULT") //use the printer default
oPrint:Say(1, 1, "Teste printing line 1 col ")
oPrint:Say(2 1, "99988877766", "@R 999.999.999-99")
oPrint:End()
or
In class
oPrint:=Printdos():New("FILE.TXT") //Print to file
oPrint:Say(1, 1, "Teste printing line 1 col ")
oPrint:Say(2 1, "99988877766", "@R 999.999.999-99")
oPrint:End()
or
oPrint:=Printdos():New("LPT1") //printing to port
oPrint:Say(1, 1, "Teste printing line 1 col ")
oPrint:Say(2 1, "99988877766", "@R 999.999.999-99")
oPrint:End()
Using command
SET PRINTER TO "SELECT" OF oPrint
@ 1, 1 PSAY "Teste printing line 1 col " of oPrint
@ 2, 1 PSAY "9988877766" PICTURE "@R 999.999.999-99" of oPrint
END PRINTER OPRINT
Function added
PrintSetupDos() //Select the printer, if press CANCEL the printporname
return Nil
PrintPortName() //Return the name port LPT?: or \\server\printing
Regards
Sandro Freire
http://www.lumainformatica.com.br
|
