Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 25-04-2017
Avatar de mRoman
mRoman mRoman is offline
Miembro
 
Registrado: nov 2003
Posts: 599
Poder: 21
mRoman Va por buen camino
copias impresion termica

Hola buenas noches

Uso Delphi6, Firebird 2.0

Tengo problemas con impresora térmica EPSON T20-T20II para imprimir copias de los tickets. No he podido imprimir el ticket 2 veces, ni desde delphi cambiando las propiedas del QuickRep, copies...cambiandole a 2 y desde las propiedas de la impresora no me deja cambiarle, por default trae 1.

COMO LE PUEDO CAMBIAR U ORDENAR Q ME IMPRIMA 2 VECES EL TICKET???.

Tambien hice esto:

Código Delphi [-]
    qrTicket.QuickRep1.Print;
    qrTicket.QuickRep1.Print;

Pero tampoco...alguno de ustedes le ha pasado lo mismo....como lo solucionaron.

P.D. No manda ningun error...solo imprime 1 vez.

Gracias..
__________________
Miguel Román

Afectuoso saludo desde tierras mexicanas....un aguachile?, con unas "cetaseas" bien "muertas"?, VENTE PUES !!
Responder Con Cita
  #2  
Antiguo 25-04-2017
Avatar de mRoman
mRoman mRoman is offline
Miembro
 
Registrado: nov 2003
Posts: 599
Poder: 21
mRoman Va por buen camino
Estoy intentando mandar desde el bock de notas y ahi le indique 2 copias, y me salio un mensaje como este:"Esta impresora no puede imprimir tantas copias...." etc, etc.

NO...NO PUEDE SER POSIBLE !!!...ENTONCES TENDRIA QUE ENVIARLO 2 VECES A IMPRESION !....ah !, ya lo hice !!...y no funciono....seguiré buscando.
__________________
Miguel Román

Afectuoso saludo desde tierras mexicanas....un aguachile?, con unas "cetaseas" bien "muertas"?, VENTE PUES !!
Responder Con Cita
  #3  
Antiguo 25-04-2017
Avatar de mRoman
mRoman mRoman is offline
Miembro
 
Registrado: nov 2003
Posts: 599
Poder: 21
mRoman Va por buen camino
Solucionado

Que tal....

Encontré la solución:

Código Delphi [-]
procedure TfrmDetalleComanda.sBtnImprimirClick(Sender: TObject);
begin

{    qrTicket.qryCantLetra.Close;
//    qrTicket.qryCantLetra.ParamByName('id').AsInteger:=qryMaestro.fieldByName('registro_id').AsInteger;
    qrTicket.qryCantLetra.ParamByName('id').AsInteger:=nID;
    qrTicket.qryCantLetra.Open;
    qrTicket.qryTicket.Close;
//    qrTicket.qryTicket.ParamByName('registro_id').AsInteger:=qryMaestro.fieldByName('registro_id').AsInt  eger;
    qrTicket.qryTicket.ParamByName('registro_id').AsInteger:=nID;
    qrTicket.qryTicket.Open;
    qrTicket.QuickRep1.Print;
    qrTicket.QuickRep1.Print;}
    ImprimirTicket(); //Aqui la solucion
    ImprimirTicket(); //Mande llamar 2 veces para q me imprima el ticket 2 veces
    frmMesasAbiertas.btnActualizarClick(Sender);
    Close;
end;

Esta es el procedure q imprime el ticket 2 veces....

Código Delphi [-]
procedure TfrmDetalleComanda.ImprimirTicket();
begin
    qrTicket.qryCantLetra.Close;
//    qrTicket.qryCantLetra.ParamByName('id').AsInteger:=qryMaestro.fieldByName('registro_id').AsInteger;
    qrTicket.qryCantLetra.ParamByName('id').AsInteger:=nID;
    qrTicket.qryCantLetra.Open;
    qrTicket.qryTicket.Close;
//    qrTicket.qryTicket.ParamByName('registro_id').AsInteger:=qryMaestro.fieldByName('registro_id').AsInt  eger;
    qrTicket.qryTicket.ParamByName('registro_id').AsInteger:=nID;
    qrTicket.qryTicket.Open;
    qrTicket.QuickRep1.Print;
end;

Lo que esta de GRIS era como lo tenia definido...y asi no me funcionaba ya que despues de imprimir como que los DataSets (IBQuery) se cerraban y me decia que los campos q queria imprimir no estaban, cuando lo queria imprimir otra vez...

qrTicket.QuickRep1.Print;
qrTicket.QuickRep1.Print;

Saludos....y gracias por el tiempo q hayan invertido en querer ayudarme
__________________
Miguel Román

Afectuoso saludo desde tierras mexicanas....un aguachile?, con unas "cetaseas" bien "muertas"?, VENTE PUES !!

Última edición por mRoman fecha: 25-04-2017 a las 06:31:53.
Responder Con Cita
  #4  
Antiguo 25-04-2017
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.022
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Impresion deforme en impresora termica darkerbyte Impresión 9 11-09-2013 11:38:34
Impresion de tickets en FastReport c/ codigo de barras en impresora termica hmoner Impresión 1 01-04-2010 21:34:22
Impresion de comprobantes en impresora termica hmoner Impresión 2 17-03-2010 18:58:53
Impresion en red en impresora termica Kroy K4100 Lyon32 Impresión 0 03-02-2010 17:51:02
Impresión impresora térmica Cañones Impresión 6 08-10-2008 22:38:20


La franja horaria es GMT +2. Ahora son las 17:55:07.


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