TPPDrawtext doesn't print

rbuser

Hi

i tried this code but nothing is printed why

lDrawTransportText:=TPPDrawText.Create(nil);
lDrawTransportText.Page:=Report.Engine.Page;
lDrawTransportText.Left:=Report.PrinterSetup.PageDef.mmMarginLeft;
lDrawTransportText.Top:=Report.PrinterSetup.Pagedef.mmMarginTop;
lDrawTransportText.Text:='Transport : ' + SubTotaal.GetText;
lDrawTransportText.Height:=30;
lDrawTransportText.Width:=30;

thanks Frank

digitalmetaphors

Properties on draw commands, such as width and height, should have values in
thousandths of millimeters.


Cheers,

Jim Bennett
Digital Metaphors