Q&A

  • 처음에 꼭 빈페이지만 출력이 되네요....
TPrinter를 이용해서 출력하는데....

처음에는 빈페이지만 나오고 그다음부터는 정상적으로 작동합니다....

왜 이런 현상들이 벌어지는거죠...



아래와같이 코딩하였습니다...



PrintDialog := TPrintDialog.Create(Self);

PrintDialog.Options := [];

if PrintDialog.Execute then begin

Printer.BeginDoc;

M := TImage.Create(Self);

M.Width := FirstLeft*2 + ColWidth*ColCount;

M.Height := FirstTop + RowHeight*RowCount + 5;

DrawToCanvas(M.Canvas);

Printer.Canvas.CopyRect(Printer.Canvas.ClipRect, M.Canvas, M.Canvas.ClipRect);

M.Free;

Printer.EndDoc;

end;

0  COMMENTS