My problem is that I have some .frx reports, some .prgs that use @...SAY and some .prgs that use ??? to send text to the printer. All of them work EXCEPT the ones like EXAMPLE 2 below. I need to get example 2 working so I don't have to redo all of those .prgs IMMEDIATELY. They will be converted to reports later on, but there are too many to convert in my short deadline to get it working at least.
Also, if I issue printer commands in the middle of a document using ??? to issue bold for specific text for example, it ejects the page in VFP7 but not in FPD26. How to handle this without redoing all of the HUGE .prgs that print contracts using ??? and ?
EXAMPLE 1 WORKS CORRECTLY:
*--------------------------------
*Example 1
*This example works fine.
SET TALK OFF
opt = ''
port = GETPRINTER()
SET PRINTER TO NAME (port)
SET DEVICE TO PRINT
??? OPT
@10,10 SAY 'THIS IS A TEST 1'
@11,10 SAY 'No Page is ejected before the line above which is correct'
EJECT
SET DEVICE TO SCREEN
SET PRINTER TO
SET TALK ON
*End of example 1
*--------------------------------
EXAMPLE 2 IS WRONG--IT EJECTS A BLANK PAGE BEFORE THE PRINTED PAGE
*--------------------------------
*Example 2
*This example does NOT work-it ejects a blank sheet BEFORE printing everytime
SET TALK OFF
opt = ''
port = GETPRINTER()
SET PRINTER TO NAME (port)
SET DEVICE TO PRINT
SET CONSOLE OFF
SET PRINTER ON
??? OPT
?
? 'THIS IS A TEST 2'
? 'TEST 2 Ejects a blank page FIRST-which is WRONG'
?
EJECT
SET CONSOLE ON
SET PRINTER OFF
SET DEVICE TO SCREEN
SET PRINTER TO
SET TALK ON
*End of example 2
*--------------------------------
Also, if I issue printer commands in the middle of a document using ??? to issue bold for specific text for example, it ejects the page in VFP7 but not in FPD26. How to handle this without redoing all of the HUGE .prgs that print contracts using ??? and ?
EXAMPLE 1 WORKS CORRECTLY:
*--------------------------------
*Example 1
*This example works fine.
SET TALK OFF
opt = ''
port = GETPRINTER()
SET PRINTER TO NAME (port)
SET DEVICE TO PRINT
??? OPT
@10,10 SAY 'THIS IS A TEST 1'
@11,10 SAY 'No Page is ejected before the line above which is correct'
EJECT
SET DEVICE TO SCREEN
SET PRINTER TO
SET TALK ON
*End of example 1
*--------------------------------
EXAMPLE 2 IS WRONG--IT EJECTS A BLANK PAGE BEFORE THE PRINTED PAGE
*--------------------------------
*Example 2
*This example does NOT work-it ejects a blank sheet BEFORE printing everytime
SET TALK OFF
opt = ''
port = GETPRINTER()
SET PRINTER TO NAME (port)
SET DEVICE TO PRINT
SET CONSOLE OFF
SET PRINTER ON
??? OPT
?
? 'THIS IS A TEST 2'
? 'TEST 2 Ejects a blank page FIRST-which is WRONG'
?
EJECT
SET CONSOLE ON
SET PRINTER OFF
SET DEVICE TO SCREEN
SET PRINTER TO
SET TALK ON
*End of example 2
*--------------------------------