04-27-2024, 10:17 PM
I too really miss printer control codes. I wish to drive a Laserjet using HPGL. I call HPGL output with a PCL escape code to eg draw a right angled triangle:
'****** test of hpgl
LPrint Chr$(27); "E"; 'printer reset
LPrint Chr$(27); "&l1O" 'landscape 0O for portrait
LPrint Chr$(27); "%0B"; 'enter hpgl using previous hpgl cursor posit
LPrint "IN"; 'initialise
LPrint "SC0,40,0,40,2;"; 'working in millimetres
LPrint "SP1PA10,10;" 'select pen1 move to 10,10
LPrint "PD;" 'pen down &
LPrint "PA50,10;"; 'draw (50,10)
LPrint "PA10,20;"; ' (10,20)
LPrint "PA10,10;"; ' (10,10)
'LPRINT CHR$(27); "%0A"; 'enter pcl mode
LPrint Chr$(27); "E"; 'reset to end & print
It is not clear from this discussion if it is not possible to add control codes to QB64PE for some technical reason (but apparently CHR$(27) works?) or that it is possible but just hasn't been done?
If the latter can I ask that this is scheduled for a subsequent release please?
'****** test of hpgl
LPrint Chr$(27); "E"; 'printer reset
LPrint Chr$(27); "&l1O" 'landscape 0O for portrait
LPrint Chr$(27); "%0B"; 'enter hpgl using previous hpgl cursor posit
LPrint "IN"; 'initialise
LPrint "SC0,40,0,40,2;"; 'working in millimetres
LPrint "SP1PA10,10;" 'select pen1 move to 10,10
LPrint "PD;" 'pen down &
LPrint "PA50,10;"; 'draw (50,10)
LPrint "PA10,20;"; ' (10,20)
LPrint "PA10,10;"; ' (10,10)
'LPRINT CHR$(27); "%0A"; 'enter pcl mode
LPrint Chr$(27); "E"; 'reset to end & print
It is not clear from this discussion if it is not possible to add control codes to QB64PE for some technical reason (but apparently CHR$(27) works?) or that it is possible but just hasn't been done?
If the latter can I ask that this is scheduled for a subsequent release please?