Imprimir facturas desde dbgrid.

[[Lepe]]

¿no estamos complicando la cosa?

Edito: Acabo de leer de nuevo el mensaje y parace que no quiere usar QuickReport... y ¿reportman que es gratuito?

- Diseñas un Quickreport (en tiempo de diseño) con qrdbtext justo donde deben ir para que cada dato salga en su casilla.

- El tema de papel, mejor te olvidas, usa un A4 y un pié de página de 12 cm. (29 cm que tiene el folio menos 17 cm que ocupa la factura). Listo, en cada folio va una factura.

- El quickreport tendrá como origen de datos una consulta, por ejemplo parametrizada, es decir que le puedas decir que imprima la factura nº 321.

- El botón sobre tu ventana, hará algo similar a esto:

Código Delphi [-]
 var qr : Tquickreport1;
begin 
   qr := Tquickreport1.Create(self);
   query1.parambyname('nFactura').AsXXXX :=  'el número de factura a imprimir';
   query1.Open;
   qr.print;

Como ves, el botón crea el quickreport, abre la consulta donde estaran los datos a imprimir, y por último, imprime directamente sin mostrar la presentación en pantalla.

Podrías usar un TDialogPrinter para pedir el número de copias a imprimir.

Saludos

[marcoszorrilla]

Los valores que comentas los tengo guardados en una tabla llamada configuración, ello permite cambiar la ubicación de cualquier dato.
También le paso el tamaño de papel antes de comenzar a escribir.

Para el tamaño de papel utilizo la función del API:

Código Delphi [-]

procedure SetPaperSize (intAlto,intAncho : Integer);
{aqui se define el tamaño del papel}
var
   ADevice, ADriver, APort : array [0..255] of Char;
   ADeviceMode : THandle;
   DevMode : PDevMode;
begin
   with Printer do
      begin
         GetPrinter (ADevice, ADriver, APort, ADeviceMode);
         SetPrinter (ADevice, ADriver, APort, 0);
         GetPrinter (ADevice, ADriver, APort, ADeviceMode);
         DevMode := GlobalLock(ADeviceMode);
         if not Assigned(DevMode) then
            ShowMessage('Ha entrado en -> if not Assigned(DevMode) ...')
         else
            begin
               with DevMode^ do
                  begin
                     dmPaperSize:= DMPAPER_User;
                     dmPaperLength := intAlto;
                     dmPaperWidth:= intAncho;
                     dmFields := dmFields or DM_PAPERSIZE or DM_PAPERLength or DM_PAPERWidth;
                  end;
               GlobalUnLock(ADeviceMode);
               SetPrinter(ADevice, ADriver, APort, ADeviceMode);
           end;
      end;
end;

Pero harías mejor en seguir la idea de Lepe, es lo que yo utilizo en la actualidad, como ves la opción del Canvas es bastante complicada de llevar a cabo.

La función numero2Texto la cree yo.

Un Saludo.

[Tauro78]

En caso de usar QReport, me surge una pregunta, luego de definir el tamaño del papel en la impresora creo que no deberia dejar ese tamaño por defecto en la impresora, ya que solo lo usare para imprimir facturas pero todos los otros documentos se imprimen en A4, entonces como puedo hacer para que mi programa justo antes de imprimir cambie el tamaño del papel de A4 al formato definido por mi (ej: Facturas), y luego que termine de imprimir vuelva a cambiar el tamaño del papel al formato de A4 ?

[marcoszorrilla]

Lo que hago yo es instalar la misma impresora dos veces en esa segunda, que le llamo recibos, facturas o lo que sea, le pongo las medidas personalizadas que voy a utilizar que coinciden con las que he dato al tamaño personalizado de QuickReport, nunca me ha dado problemas.

Un Saludo.