Hi!!
I'm trying to print an image from my cell with this code, but it is imposible. 'Access Violation'.
procedure TFPrincipal.BImprimirClick(Sender: TObject);
var
SrcRect, DestRect: TRectF;
begin
with Printer do
begin
ActivePrinter.SelectDPI(1200,1200);
Canvas.Fill.Color:= TAlphaColorRec.Black;
Canvas.Fill.Kind := TBrushKind.Solid;
BeginDoc;
SrcRect := Image.LocalRect;
DestRect := TRectF.Create(0, 0, PageWidth, PageHeight);
Canvas.DrawBitmap(Image.Bitmap, SrcRect, DestRect, 1);
EndDoc
end
end;