Purpose :
Code: Select all
Provide LPRINT functions with direct access to printer, just like good old BASIC ! (It won't work with GDI only / POSTSCRIPT printers)
PB3.94 : http://gnozal.ucoz.com/PureLPRINT.htm
PB4.0x : http://gnozal.ucoz.com/PureLPRINT_.htm
Example :
Code: Select all
OpenConsole()
MyPrinter.s = LPRINT_GetDefaultPrinter()
If LPRINT_OpenPrinter(MyPrinter)
Debug "Open " + MyPrinter
If LPRINT_StartDoc("Job")
LPRINT_Print(Chr(27) + "E") ; PCL reset for HP Printers
LPRINT_Print("Line 1")
LPRINT_PrintN("Same Line")
LPRINT_PrintN("Line 2")
LPRINT_PrintN("")
LPRINT_PrintN("Line 4")
LPRINT_NewPage ; Form feed
LPRINT_PrintN("Line 1 (Page 2)")
LPRINT_EndDoc()
Else
Debug "Could not start job"
PrintN("Could not start job")
EndIf
LPRINT_ClosePrinter()
Debug "Done"
PrintN("Done")
Else
Debug "Printer " + MyPrinter + " not found"
PrintN("Printer " + MyPrinter + " not found")
EndIf
Download :
Only available for Purebasic Windows x86
PB3.94 : http://gnozal.ucoz.com/PureLPRINT.zip
PB4.0x : http://gnozal.ucoz.com/PureLPRINT_.zip
PB4.1x : http://gnozal.ucoz.com/PureLPRINT__.zip
PB4.2x : http://gnozal.ucoz.com/PureLPRINT___.zip
PB4.3x : http://gnozal.ucoz.com/PureLPRINT_430.zip
PB4.4x : http://gnozal.ucoz.com/PureLPRINT_440.zip
PB4.5x : http://gnozal.ucoz.com/PureLPRINT_450.zip
PB4.6x : http://gnozal.ucoz.com/PureLPRINT_460.zip
PB5.0x : http://gnozal.ucoz.com/PureLPRINT_500.zip
Other libs and tools at http://gnozal.ucoz.com/