Ver Mensaje Individual
  #9  
Antiguo 05-12-2012
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
Basi,

Cita:
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
Cita:
Empezado por Basi
me conformaria con que abriera por lo menos el menu de imprimir
Cita:
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.

Última edición por nlsgarcia fecha: 05-12-2012 a las 22:26:43.
Responder Con Cita