Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-01-2008
mtirado mtirado is offline
Miembro
 
Registrado: mar 2007
Posts: 26
Poder: 0
mtirado Va por buen camino
Imprimir ticket con una Epson TM U220D

Hola nuevamente. Anteriormente escribi un tema relacionado con el tamaño de impresion, lo hago nuevamente para ser mas explicito.
Lo que deseo hacer es imprimir un comprobante con una impresora del tipo Epson TM U220D, el comprobante debe tener un tamaño especifico, es decir, e 75 mm por 75 mm.
Lo que tengo actualmente es imprimir directamente por el canvas, pero no se como ajustar las dimensiones para que coincidan con la hoja de dicha impresora. Lo que tengo me imprime bien pero para una impresora comun y corriente, pero cuando lo hago con una de este tipo, se forma el rollo!
Por favor si alguien me puede ayudar y decirme que debo haver.
Actualmente lo que hago es esto:
Printer.BeginDoc;
Printer.Canvas.TextOut(90, 90, LbComprobanteTexto.Caption);
...
Printer.EndDoc;

Por favor si alguien me ayudara, lo agradecere muchisimo.
Responder Con Cita
  #2  
Antiguo 12-01-2008
Avatar de droguerman
droguerman droguerman is offline
Miembro
 
Registrado: abr 2005
Ubicación: tierra
Posts: 999
Poder: 20
droguerman Va por buen camino
has pensado usar fast reports o uno similar, yo lo he usado para impresoras de ese tipo y va bastante bien
__________________
self.free;
Responder Con Cita
  #3  
Antiguo 13-01-2008
CrazySoft CrazySoft is offline
Miembro
 
Registrado: abr 2005
Posts: 96
Poder: 20
CrazySoft Va por buen camino
Puedes probar con codigos de escape para imprimir directamente, casi de la misma forma que la estas haciendo y adicionalmete te permite el corte de papel
Código Delphi [-]
var Impresora : TextFile;
Begin
assignFile(Impresora, 'LPT1'); //Asigna el puerto a la variable "Impresora"
//'LPT1' indica el puerto al que se conecta la impresora,
//ej.: 'COM1', 'COM2'
rewrite(Impresora); //apertura del archivo, creacion
//Los siguientes son comandos ESC. ESC o escape es el caracter #27
//Comando para cambiar tipo de letra: ESC ! n
Write(Impresora, #27);//ESC
Writeln(Impresora, 'COMPROBANTE');//Texto a imprimir
Writeln(Impresora, '123456789012345678901234567890');
Writeln(Impresora, '111111111111111111111111111111');
Writeln(Impresora, 'abcdefghijklmnopqrstuvxyzABCDE...');
Writeln(Impresora, '______________________________');
Writeln(Impresora, '------------------------------');
Write(Impresora, #27+'i');// m= corte parcial, en teoria i= corte total
CloseFile(Impresora); //cerrar el archivo
end;

bueno espero que te sirva
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como imprimir un bitmap al inicio de un ticket Javi2 Impresión 3 24-01-2006 18:39:08
imprimir ticket en win xp y en win 98 rebollo75 Impresión 0 19-11-2004 17:49:06
Problemas al imprimir un ticket roco7777 Impresión 2 23-11-2003 16:14:51
Imprimir en ticket? pgraciap Impresión 1 08-11-2003 01:12:17
imprimir acetos en una impresora de ticket samsung? Er_Manué Impresión 1 30-08-2003 07:00:15


La franja horaria es GMT +2. Ahora son las 17:32:16.


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
Copyright 1996-2007 Club Delphi