Uitlizo esto
Código Delphi
[-]
with Printer do
begin
SetMapMode(Printer.Handle,MM_LOMETRIC);
BeginDoc;
Canvas.Draw(0, 0, img.Picture.Graphic);
EndDoc;
end;
Pero la imagen impresa la tengo que ver con lupa por que sale demasiado pequeña. Hay alguna forma de agrandar la imagen utilizando Printer??
Tambien ya probe imprimiendo el formulario con esto
Código Delphi
[-]Self.Color := clWhite;
Self.Button1.Visible := False;
Self.BorderStyle := bsNone;
bi := Self.BorderIcons;
Self.BorderIcons := [];
Self.Image1.AutoSize := False;
Self.Image1.Height := 100;
Self.Image1.Width := 300;
Self.Print;
Self.Image1.AutoSize := True;
Self.BorderIcons := bi;
Self.BorderStyle := bsSizeable;
Self.Button1.Visible := True;
Self.Color := clBtnFace;
Pero esto no me sirve.
De antemano les agradezco su ayuda