Letterhead paper problem

rbuser

Dear all,

I have put letterhead paper in the Pagestyle of reports so that
when a .pdf is produced the letterhead is included. This works
fine.

However, when previewing the report locally and printing it the
report should not print the background on paper since there is
allready letterhead paper available in the printer bin.

The following code is used in two events (ReportBeforePrint,
ReportOnStartPage):

<-start-->
if (Report.PrinterDevice <> nil) and (Report.FileDevice = nil) then
PageStyle.Visible := False
else
PageStyle.Visible := True;

Report.EmailSettings.Recipients.Add(ORDERS['D_EMAIL']);
Report.EmailSettings.Subject:= ('Factuur'+' '+ORDERS['INVOICEID']);

<-end-->

I am using RB 12.05, Delphi2010, Firebird 2.5.

Somewhere I am missing the point but where?

Kind regards,

Jerri

nicocizik

Hi Jerri,

My guess is that in some cases, even though you are printing to the
printer, the file device is not nil. Try tracing this code and see if
that is the case. You may want to simply remove that part of the
condition from your code.