Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como Seleccionar una Impresora (https://www.clubdelphi.com/foros/showthread.php?t=14831)

JANDREGUE 01-10-2004 15:04:22

Como Seleccionar una Impresora
 
hola amigos ...Nesecito de su valiosa ayuda,

Sucede que al momento de enviar a imprimir una Factura, deseo ver con anterioridad la lista de mis impresoras disponibles para así poder escoger una de ellas, en donde deseo enviar la impresión. Realmente no sé como hacerlo por eso les agradezco me colaboren

Gracias. ;)

Lepe 01-10-2004 16:12:26

En la paleta Dialogs de Delphi tienes PrintDialog y PrinterSetupDialog, añade el que quieras y despues:

Código Delphi [-]
  if printdialog1.execute then
  begin
      // el usuario aceptó la pantalla, imprimir lo que sea:
  end

saludos

Si usas QuicReport para tu factura, usa el método PrinterSetup:
( qrFact es el quickReport en diseño)
Código Delphi [-]
FrmQRFactura.qrFact.ReportTitle:= 'T.S.R.G. - Factura '+ DBEdit1.Text;

   // no documentado en QuickReport, si cancela, el usuario, el tag le asigna un valor

    FrmQRFactura.qrFact.Tag:= 0;
    FrmQRFactura.qrFact.PrinterSetup;
    if FrmQRFactura.qrFact.Tag = 0 then
    begin
      FrmQRFactura.qrFact.Printbackground;

      while FrmQRFactura.qrFact.QRPrinter.Status <> mpBusy do
      begin
        Application.HandleMessage;
        Application.ProcessMessages;
      end;

      while FrmQRFactura.qrFact.Available = False do
      begin
        Application.HandleMessage;
        Application.ProcessMessages;
      end;
    end;


La franja horaria es GMT +2. Ahora son las 04:02:53.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi