Imprimir facturas desde dbgrid.

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