Ver Mensaje Individual
  #3  
Antiguo 08-04-2010
hibero hibero is offline
Miembro
 
Registrado: nov 2003
Posts: 104
Reputación: 21
hibero Va por buen camino
Arrow Tendría lógica que fuera eso

tendría lógica que fuera eso, pero no, en el menu informe >> Opciones la casilla Doble Pasada no está Marcada.

Investigando he encontrado otra solución "chapucera" que si me funciona es utilizar la variable Printer de la unidad Printers

1. Incluyo en el uses la unidad "printer"
2. creo una función como la que sigue y la llamo después de imprimir el informe


Código Delphi [-]
 function AbrirCajon; //Suponiendo que la impresora que me interese esté por defecto, sino hay que añadir codigo para seleccionarla por su nombre
    begin
        Printer.BeginDoc; //Inicio el trabajo
        Printer.Canvas.Font.Name:='Control'; //Fuente "control"
        Printer.Canvas.TextOut(0,0,'A');  //Imprimo el código A que Abre el cajón
        Printer.EndDoc  //finalizo el trabajo
   end;


Gracias
Responder Con Cita