Abrir programa y mandar imprimir

[ecfisa]

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.