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
public
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.