Hi!
I spent ~2,5 h. trying to solve my "print problem".
Let's me describe my problem first:
I have a form with 2 additional properties: Title and Message and I want to print the content of these properties as a Statistics report with some formatting (different fonts, add datetime...). Sounds easy, aren't? But I try:
*!* Local lcDevice
*!* lcDevice=SYS(101) && Return Current device
*!* IF PrintStatus()
*!* SET DEVICE TO Printer
*!* SET PRINTER FONT 'Courier', 12 STYLE 'I'
*!* @ 2, 35 SAY Datetime()
*!* SET PRINTER FONT 'Courier', 16 STYLE 'BI'
*!* @ 4, 5 SAY THISFORM.Title
*!* SET PRINTER FONT 'Courier', 10 STYLE 'N'
*!* @ 6,5 SAY THISFORM.MESSAGE
*!* ENDIF
*!* SET DEVICE TO &lcDevice
And nothing goes to printer for a long time (Our printer is a network printer).
Try this:
cTitle=ThisForm.Title
cMessage=ThisForm.Message
REPORT FORM Statistics NOCONSOLE NOEJECT
Still nothing goes to printer. And I even had an additional problem - I can not create a report without database, so I put some database in Report DE.
Another weird behaviour with this form: tooltiptext and statusbartext doesn't display for my buttons.I positioned all controls in form Init method. Could this cause this problem?
Thanks in advance
If it's not broken, fix it until it is.
My Blog