Imprimir facturas desde dbgrid.

[Tauro78]

hola, estoy haciendo un programa de facturacion con Delphi7 y quisiera saber lo siguiente:
tengo una pantalla con un dbgrid y demas en la cual el usuario genera la factura (con su detalle), debo decir que la factura ya esta diseñada en el papel en el cual se va a imprimir (adjunta en factura.jpg), el ancho de la factura es la de una hoja A4, pero el alto de cada factura es de 17 cm aprox. y para algunos casos se deben imprimir 3 copias de una misma factura para lo cual el usuario deberia poder elegir el numero de copias a imprimir.
entonces segun creo puedo hacer:

1) desde el form por medio de un boton (Imprimir) pasar los datos directamente desde la forma a la impresora, como lo puedo hacer? ya que deberia colocar cada dato en el espacio que debe ocupar en la factura. Ademas como haria para poner como parametro el numero de copias a imprimir? Y tambien deberia de tener definido el tamaño del papel (21X17) para que lo tome la impresora?

2) desde el form por medio de un botón llamar a QReport o Rave y de alguna manera ajustar el tamaño de la hoja y hacer que se vea el reporte como si fuera la factura, pero al momento de imprimir solo me imprimira los datos ya que lo demás ya esta diseñado en el papel de impresión.

Creo que la opcion 2 no me parece dificil de realizar, pero mi jefe prefiere
la opcion 1, ya que elige el numero de copias le da a imprimir y nada más.

Gracias anticipadas.

[marcoszorrilla]

La opción correcta es la 2, al menos con QuickReport puedes decirle el número de copias que deseas. (En PrinterSettings, tienes la opción Copies:xx),

Un Saludo.

[Tauro78]

Yo pienso lo mismo, pero mi jefe prefiere la opcion 1, entonces me gustaria saber cual seria la forma de llevarla a cabo. Supongo que tendria que recorrer por fila y columna, pero por ahora no me ha salido mucho. Muchas gracias.

[marcoszorrilla]

La opción 1 no la he citado porque eso supondría imprimir con el Canvas de la impresora lo cual resulta harto complicado cuando además habrá que alinear números por la derecha etc...

Mira un extracto para que te hagas una idea del problema:

Código Delphi [-]
   
  procedure ImpAlba(n:Integer);
  var
  nSaltLin:Integer;
  nSaltPun:Integer;
  nLinea:Integer;
  lEuro:Boolean;
  cCadena:String;
  begin
  //1 Albarán en Euros
  nSaltLin:=0;
   
  DmXXXX.Cli.IndexName:='Codigos'; //Para poder buscar quien es el cliente.
  DmXXXX.Cli.FindKey([DmXXXX.AlbaCodCliente.Value]);
   
    SetPaperSize(DmXXXX.ConfAltoAlbaran.Value,DmXXXX.ConfAnchoAlbaran.Value);
    Printer.Canvas.Font.Size:=DmXXXX.ConfFontSizeEncabezado.value;
    Printer.Canvas.Font.Name:=DmXXXX.ConfFontEncabezado.Value;
   
   
      With Printer.canvas do
         Begin
   
          printer.BeginDoc;
                 HeadIMpalba(1);
               //Datos del Detalle del Alabarán
                Printer.Canvas.Font.Size:=DmXXXX.ConfFontSizeDetalle.value;
                Printer.Canvas.Font.Name:=DmXXXX.ConfFontDetalle.Value;
   
                DmXXXX.Linalba.First;
                nSaltLin:=0;
                nSaltPun:=DmXXXX.ConfASaltoLinea.Value;
                While Not DmXXXX.LinAlba.Eof do
                begin
                nLinea:=nLinea + 1; //control de número de líneas por albarán
   
                  if nLinea > DmXXXX.ConfASaltoPagina.Value then
                  begin
                  Textout(DmXXXX.ConfAcolDescripcion.value,DmXXXX.ConfAlinNArticulo.Value + (nSaltLin * nSaltPun) ,'..........');
                  nLinea:=0;
                  nSaltLin:=0;
                  Printer.NewPage;
                  HeadImpalba(1);
                  end;
   
                  
   
               cCadena:=numero2Texto(DmXXXX.AlbaRecargo1.Value,2,7);
               Textout(DmXXXX.ConfAcolRecTtl.value ,DmXXXX.ConfAlinBase.Value + (nSaltLin * nSaltPun) , cCadena);
   
                  end;
                  nSaltLin:= nSaltLin + 1;
               end;
   
   
                  //Ver si tiene recargo 1
                  if DmXXXX.AlbaRecargo3.Value <> 0 then
                  begin
               cCadena:=numero2Texto(DmXXXX.AlbaTRec3.Value,2,5);
               Textout(DmXXXX.ConfAcolRec100.value ,DmXXXX.ConfAlinBase.Value + (nSaltLin * nSaltPun) , cCadena);
               cCadena:=numero2Texto(DmXXXX.AlbaRecargo3.Value,2,7);
               Textout(DmXXXX.ConfAcolRecTtl.value ,DmXXXX.ConfAlinBase.Value + (nSaltLin * nSaltPun) , cCadena);
                  end;
                  nSaltLin:= nSaltLin + 1;
               end;
   
               //Pesetas en posición fija
               cCadena:=numero2Texto(DmXXXX.AlbaETotal.Value,0,11);
               //Se quitan las pesetas 01-04-04 Laura
               //Textout(DmXXXX.ConfAcolEuros.value ,DmXXXX.ConfAlinEuros.Value  , cCadena);
   
               Printer.EndDoc;
         end;
  end;

Esto con un Constructor de informes sin embargo es pan comido.

Un Saludo.

[Tauro78]

hola tengo unas preguntas; los distintos valores (Ancho, Alto, Fuente, SaltoPagina) del documento a imprimir los tenes definidos en la tabla Albaranes junto con los demas datos del albaran ?

Para que sirve el procedimiento numero2Texto, tu lo crastes ?

En donde le das la ubicacion que deben tener los datos en el documento ?

Con esto no necesitas definir el tamaño del papel en las impresora ?

Disculpa las preguntas, estoy tratando de entender tu ejemplo para aplicarlo a mi caso, muchas gracias.

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