>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
Hi Nadya,

I'm glad you've solved your problem, just a short note on something I noticed in your code. If printer is connected through the Windows Control Panel, PRINTSTATUS() always returns .T. I have a feeling this is a function leftover from the DOS days.