Abrir programa y mandar imprimir

[[nlsgarcia]]

Basi,

Empezado por Basi

mi duda es como mandar imprimir ya una ves que ya este abierto el programa para explicarme bien lo que quiero hacer es despues que habra el pain me lleve a archivo y de hay imprimir

Empezado por Basi

me conformaria con que abriera por lo menos el menu de imprimir

Empezado por Basi

sobre el mensaje #3 eso era lo que queria hacer el principio que cuando abriera un programa luego llamar un menu del mismo y luego de ese menu abierto me ejecutara una funcion o eligiera algo asi como un atajo

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Printers, ShellAPI;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   printDialog : TPrintDialog;
   openDialog : TOpenDialog;
   Parameters : String;

begin
   openDialog := TOpenDialog.Create(self);
   openDialog.InitialDir := GetCurrentDir;
   openDialog.Options := [ofFileMustExist];
   openDialog.Filter := 'Archivos BMP|*.bmp';
   openDialog.FilterIndex := 1;

   if openDialog.Execute then
   begin
      printDialog := TPrintDialog.Create(Self);
      if printDialog.Execute then
      begin
         Parameters := ' /p ' + '"' + openDialog.FileName + '"' + ' /pt ' + '"' + Printer.Printers[Printer.PrinterIndex] + '"';
         ShellExecute(Handle, 'open', 'mspaint', Pchar(Parameters), nil, SW_HIDE);
      end
   end;

   openDialog.Free;
   printDialog.Free

end;

end.

El código anterior permite seleccionar la impresora y el archivo a imprimir de tipo BMP por medio de los componentes TOpenDialog y TPrintDialog y realizar la impresión con MsPaint por medio de ShellExecute.

Espero sea útil

Nelson.