Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 13-01-2008
CrazySoft CrazySoft is offline
Miembro
 
Registrado: abr 2005
Posts: 100
Poder: 22
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
 



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 19:08:13.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi