PB9 - PRINTSEND
- Issue
- Anton van der Post
- PowerBuilder
- Tuesday, 6 February 2018 09:18 PM UTC
In PB9 - printsend was used to send ( 4"X6" ) label specific printer codes describing the label layout to our label printers.
Label software LOFTWARE - Compiled files Labelname.dwn contains the layout definition ( template binary codes ) of the label and Labelname.dat contains the detail of the label ( binary code followed by fieldname/position on label ).
Since PRINTSEND is no longer supported in PB2017 - any ideas how to accomplish the same result - sending binary codes and data to a printjob ?
Thank you
Anton
In sample code below is shown the PRINTSEND function - dumping the the label template to the printer.
ls_HeaderFile = ls_labelsdirectory + "LABELS\" + TRIM(lsLabelFile) +".DWN"
IF ls_HeaderFile "" THEN
IF FileExists(ls_HeaderFile) THEN
// On Disk
long ll_HeaderFileHandle, ll_HeaderFileSize, ll_HeaderLoopControl, ll_HeaderLineRead
string ls_Line = ""
ll_HeaderFileSize = FileLength(ls_HeaderFile)
ll_HeaderFileHandle = FileOpen(ls_HeaderFile)
ll_HeaderLoopControl = 0
0 THEN
// Read the file one line at a time and print it out...
DO WHILE ll_HeaderLoopControl
ll_HeaderLineRead = FileRead(ll_HeaderFileHandle,ls_Line)
0 THEN
ll_HeaderLoopControl = ll_HeaderLoopControl + ll_HeaderLineRead
PrintSend(ll_PrintJob,ls_Line)
ELSE
IF ll_HeaderLineRead -100 THEN
gnv_app.inv_error.of_Message("File read error on the header file '" + ls_HeaderFile + "'")
lb_Return = FALSE
EXIT
ELSE
EXIT
END IF
END IF
LOOP
END IF
FileClose(ll_HeaderFileHandle)
ELSE
gnv_app.inv_error.of_Message("Cannot find the header file '" + ls_HeaderFile + "'")
lb_Return = FALSE // specified file does not exist.
END IF
END IF
// Routine processing the ls_DetailFile - Labelname.dat
etc.
Find Questions by Tag
Helpful?
If a reply or comment is helpful for you, please don’t hesitate to click the Helpful button. This action is further confirmation of their invaluable contribution to the Appeon Community.