Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Imprimiendo labels y facturas (https://www.clubdelphi.com/foros/showthread.php?t=60981)

principiante22 21-10-2008 15:39:41

Imprimiendo labels y facturas
 
Saludos a todos, Estoy creando un programito y estoy teniendo problemas a la hora de imprimir labels y facturas de esas pequeñas, de las que te dan en los supermercados :p, y ahora tengo entendido de que no puedo imprimirlo con un reporte normal de rave.

Qué debo de hacer para poder imprimir? O qué componente debo de usar? Como lo hacen ustedes? Me pueden dirigir por el camino del cual necesito investigar para lograr imprimir?

Muchas gracias de antemano a cualquiera que me pueda ayudar, y a los que no, gracias por leerlo por lo menos :D.

droguerman 21-10-2008 16:53:21

Yo he creado programas para etiqueteras usando fastreports y me ha ido bastante bien

principiante22 11-11-2008 23:24:26

Gracias droguerman, pero quisiera saber si alguien por hay sabe hacerlo por rave, es que ya tengo muchos reportes creados y no quiero volver a hacerlos :confused:

JuanchoArg 12-11-2008 00:23:41

Podrias usar el objeto printer para hacerlo, porque si lo que keres imprimir es un tipo de ticket, esos generalmente no necesitan mucha estetica. Yo hice eso para unas comanderas Epson imprimiendo comprobantes de pago. Saludos

principiante22 12-11-2008 01:58:19

Gracias JuanchoArg, pero, Como uso el objeto printer para mi fin?? y donde se encuentra ese objeto, o sea, en que pestaña??

rgstuamigo 12-11-2008 21:13:40

Printer es un objeto no un componente que esta en la paleta....
puedes usarlo asi:

Código Delphi [-]
uses  Printers,......
.
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
begin
if PrintDialog1.Execute then
  begin
    Printer.BeginDoc;//inicia la impresion
     Printer.Title:='MiFactura';//asigna el titulo de la impresion
     Printer.Canvas.TextOut(0,0,'Mi texto para imprimir1');//escribe ese texto en la posicion(0,0)del canvas del Printer 
     Printer.Canvas.TextOut(0,50,'Mi texto para imprimir2');//escribe ese texto en la posicion(0,50)del canvas del Printer
    Printer.EndDoc;//finaliza la impresion
  end;
end;
Saludos...:cool:

rgstuamigo 12-11-2008 21:27:31

Tambien si quisieras imprimir tu formulario completo asi tal como se ve, podrias hacer lo siguiente:
Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
 Print;
end;
si quisieras ocultar algun componente que no quieras que se imprima, podrias hacer el siguiente truquito:
Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1.Visible:=False;
  Button2.Visible:=False;
  Print;//aqui imprime todos los componentes que estan visibles.
  Button1.Visible:=True;
  Button2.Visible:=True;
end;


La franja horaria es GMT +2. Ahora son las 22:24:57.

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