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-07-2006
comba comba is offline
Miembro
 
Registrado: feb 2004
Posts: 89
Poder: 21
comba Va por buen camino
Como imprimir un fichero con codigos escape

Hola

Tengo un fichero txt con los codigos de escape de una impresora zebra y tengo que imprimirlor pero no se se hace.

Alguién me puede dar una horientación. Se que tengo que enviar ese fichero hacia la impresora pero no nunca lo he hecho.

Un saludo
Responder Con Cita
  #2  
Antiguo 12-07-2006
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Puedes probar con Print del antiguo MS.Dos, que lo encontrarás generalmente en Windows\System32.

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #3  
Antiguo 05-08-2006
neasoporte neasoporte is offline
Registrado
 
Registrado: nov 2005
Ubicación: Corrientes Argentina
Posts: 7
Poder: 0
neasoporte Va por buen camino
enviar codigo de escape embebido en qreport

Yo lo hago de esta manera,pego labeles en la linea a destacar en impresion.
alli al momento de imprimir el report lo exporto como archivo de texto,luego
lo imprimo desde el dos...

Código Delphi [-]
procedure TFprimostrador.btnpresuClick(Sender: TObject);
var
aexport:tqrasciiexportfilter;
chkdos:bool;
begin
imprimeok:='S';
chkdos:=fcfgprinter.chkprndos.Checked;
case chkdos of
 False:begin
  pnlopcprn.Visible:=false;
   if imprimeok='S' then
    begin
      fprnpresu.exptot.Expression:='sum(qprev.subtotal)';
     fprnpresu.qrppresu.Print;
    end else
      MessageDlg('Problemas de Comunicacion Con Impresora..Verifique', mtInformation,[mbOk], 0);
      gridprev.SetFocus;
 end else
 begin
  pnlopcprn.Visible:=false;
   if imprimeok='S' then
    begin
      try
       fprnpresu2.exptot.Expression:='sum(qprev.subtotal)';
       fprnpresu2.k1.Caption:=chr(14);
       fprnpresu2.k2.Caption:=chr(20);
       fprnpresu2.k3.Caption:=chr(15);
       fprnpresu2.k4.Caption:=chr(14);
       fprnpresu2.k5.Caption:=chr(20);
       aexport:=tqrasciiexportfilter.create('c:\preventa\presu.txt');
       fprnpresu2.qrppresu2.ExportToFilter(aexport);
       ShellExecute(handle,'open','Command.com','Command.com /c type c:\preventa\presu.txt>lpt1','',sw_normal);
       aexport.Finish;
      finally
        if not printer.Printing then
          begin
           saltos:=fcfgprinter.edtsaltos.IntValue;
           paracorte;
          end;
      end;
    end else
      MessageDlg('Problemas de Comunicacion Con Impresora..Verifique', mtInformation,[mbOk], 0);
      gridprev.SetFocus;
  end;
end;
end;

procedure TFprimostrador.mandocode(s: string);
var
 Handle, hDeviceMode: THandle;
 N: DWORD;
 DocInfo1: TDocInfo1;
 Device, Driver, Port: array[0..255] of char;
 PrinterName: string;
 buf:array[0..255] of char;
 lbuf:integer;
begin
 Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
 PrinterName := Format('%s', [Device]);
 if not OpenPrinter(PChar(PrinterName), Handle, nil) then
  //RaiseLastWin32Error;
  imprimeok:='N';
 try
  with DocInfo1 do
  begin
   pDocName := 'Control';
   pOutputFile := nil;
   pDataType := 'RAW';
  end;
  StartDocPrinter(Handle, 1, @DocInfo1);
  try
   lbuf:=length(s);
   copymemory(@buf,Pchar(s),lbuf);
   if not WritePrinter(Handle, @buf, lbuf, N) then
    //RaiseLastWin32Error;
    imprimeok:='N';
  finally
   EndDocPrinter(Handle);
  end;
 finally
  ClosePrinter(Handle);
 end;
end;
 
procedure TFprimostrador.paracorte;
var
inisalto:integer;
begin
  for inisalto:=1 to saltos do
   begin
   s:=#27+#10;
   mandocode(s);
   end;
end;

Última edición por dec fecha: 05-08-2006 a las 08:56:22.
Responder Con Cita
  #4  
Antiguo 05-08-2006
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.954
Poder: 27
delphi.com.ar Va camino a la fama
Podrías hacer algo como esto: http://www.clubdelphi.com/foros/show...64&postcount=3
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
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
codigos escape bernat_f Impresión 4 17-06-2006 19:27:57
Códigos escape y virtual Keys Codes Cabanyaler API de Windows 2 05-06-2006 17:13:13
Codigos Escape Impresora Sansumg serhasae Varios 3 05-09-2005 11:40:17
Codigos de escape con Zreport Sick boy Impresión 0 22-07-2005 13:27:13
Codigos de escape jsanchez Impresión 1 17-05-2003 14:54:00


La franja horaria es GMT +2. Ahora son las 01:40:51.


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