[Hwgui-developers] Class PrintDois

[Sandro R. R. F. <san...@ya...>]

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