Hola.
Se que derrapo a la banquina y que no tiene nada que ver con mspaint, pero ... ¿ Y si directamente imprimis la imágen desde Delphi ?
Código Delphi
[-]
...
implementation
uses Printers, jpeg;
procedure Imprimir(const aFileName: string; const Copias: Integer);
var
X,Y: Integer;
R : TRect;
i : Integer;
begin
with TPicture.Create do
try
LoadFromFile(aFileName);
with Printer do
begin
for i:= 1 to Copias do
begin
BeginDoc;
X:= GetDeviceCaps(Handle, logPixelsX) div Screen.PixelsPerInch;
Y:= GetDeviceCaps(Handle, logPixelsY) div Screen.PixelsPerInch;
R:= Rect(0, 0, Width * X, Height * Y);
Canvas.StretchDraw(R, Graphic);
EndDoc
end
end
finally
Free
end
end;
procedure TForm1.btnPrintClick(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
if PrintDialog1.Execute then
Imprimir(OpenPictureDialog1.FileName, PrintDialog1.Copies);
end;
end;
Saludos.