How to Handle TPrinterCanvas

[Sezar]

Hello
I have drew on Printer.Canvas,I want to render it in a bitmap file.
I have assigned it to a TCanvas.
then I use BitBlt API Function to copy it in a TBitmap.
but it doesn't work?!!!
how can I do this?

[Johnny_Bit]

you don't have to assign that canvas to anything. it's already there. you just use it.

[Sezar]

I want to use it,but when I want to draw it,I get this message:

Code: Select all

Canvas doesn't allow drawing

and it seems that nothing are on that canvas!!!

[Johnny_Bit]

before you try anything you have to call begindoc and after everything call enddoc. should work fine

[john123]

Code: Select all

Var
  Bitmap: TImage;
  X, Y: Smallint;
begin
  //Printer.PrinterIndex:= 0;//Select Printer
  Printer.BeginDoc;
  Bitmap:= TImage.Create(Self);
  Bitmap.Picture.LoadFromFile('c:\test.bmp');
  try
    Printer.Canvas.Draw(X, Y, Bitmap.Picture.Graphic);
  finally
    Printer.EndDoc;
  end;
end;


[Sezar]

Thanks for your replies...

I think, I couldn't describe my problem!

I want to Copy the Contents of Printer.Canvas into a TCanvas.

[john123]

printer canvas is write-only.
solution:
you can use replacement TCanvas & copy content by copyrect to Printer.Canvas