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 19-07-2004
ingel ingel is offline
Miembro
 
Registrado: jun 2003
Posts: 239
Poder: 21
ingel Va por buen camino
de codigo VB a codigo Delphi

HOla .. les comento mi problemita
Este es codigo VBasic para la impresion de una etiqueta en una impresora Eltron (de codigos de barras)
El problemita es que lo tengo que transcribir a delphi.. y si apenas se algo de
delphi mucho menos de VB ..
Hasta ahora saque las comillas doble por simples y cambie el & por + aunque no se si sera correcto, asumo que no porque no me imprimio nada ...
GRACIAS
Ingel

CODIGO VBasic
------------
Private Sub Etiq_GrandeEAN13_Click()
Open "LPT1" For Output As #1
Print #1, Chr$(13)
Print #1, "O"
Print #1, "D8"
Print #1, "S2"
Print #1, "ZT"
Print #1, "JF"
Print #1, "I8,1"
Print #1, Chr$(13)
Print #1, "FK" & Chr$(34) & "FIXEDAT0" & Chr$(34)
Print #1, "FS" & Chr$(34) & "FIXEDAT0" & Chr$(34)
Print #1, "Q480,24"
Print #1, "q448"
Print #1, "A30,10,0,4,1,3,N," & Chr$(34) & "Bicicleta Marca OLMO LS" & Chr$(34)
Print #1, "A30,90,0,4,1,3,N," & Chr$(34) & "Modelo CGS24242W RDFGSJ" & Chr$(34)
Print #1, "A30,170,0,4,1,3,N," & Chr$(34) & "Linea de Texto numero 3" & Chr$(34)
Print #1, "B48,250,0,E30,3,9,180,B," & Chr$(34) & "779123456789" & Chr$(34)
Print #1, "FE"
Print #1, Chr$(13)
Print #1, "FR" & Chr$(34) & "FIXEDAT0" & Chr$(34)
Print #1, "?"
Print #1, "P1"
Close #1
End Sub


Mi codigo Delphi cuasimodificado
--------------------------------

procedure TFEtiquetas.BitBtn1Click(Sender: TObject);
var Impresora: TextFile;
begin
with Printer do begin
AssignPrn(Impresora);
Title:=' EAN-13 Grande '; // titulo de la cola de impresión....
Rewrite(Impresora);
Writeln(Impresora,chr(13));
Writeln(Impresora,'O' );
Writeln(Impresora,'D8' );
Writeln(Impresora,'S2' );
Writeln(Impresora,'ZT' );
Writeln(Impresora,'JF' );
Writeln(Impresora,'I8,1' );
Writeln(Impresora,Chr(13) );
Writeln(Impresora,'FK' + Chr(34) + 'FIXEDAT0' + Chr(34) );
Writeln(Impresora,'FS' + Chr(34) + 'FIXEDAT0' + Chr(34) );
Writeln(Impresora,'Q480,24' );
Writeln(Impresora,'q448' );
Writeln(Impresora,'A30,10,0,4,1,3,N,' + Chr(34) + 'Bicicleta Marca OLMO LS' + Chr(34) );
Writeln(Impresora,'FE' );
Writeln(Impresora,Chr(13) );
Writeln(Impresora,'FR' + Chr(34) + 'FIXEDAT0' + Chr(34) );
Writeln(Impresora,'?' );
Writeln(Impresora,'P1' );

CloseFile(Impresora);
end;
end;
Responder Con Cita
  #2  
Antiguo 19-07-2004
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 27
jachguate Va por buen camino
Hola.

En primer lugar, te recomiendo usar las etiquetas [delphi], [sql] y [code] para publicar trozos de código correctamente indentado y con la sintaxis resaltada, que es mucho mas legible.

Luego, cambiá el writeln por write, pues el writeln enviará un cr/lf a la impresora y me parece (solo me parece) que no ocurre asi desde vb.

Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita
  #3  
Antiguo 20-07-2004
Gydba Gydba is offline
Miembro
 
Registrado: ene 2004
Ubicación: Argentina
Posts: 673
Poder: 21
Gydba Va por buen camino
Buenas,

Como dato completamente adicional, casualmente el sábado pasado estuve realizando pruebas con una etiqueteadora Zebra LP 2824 que tenía el gran problema que era USB

La gran realidad es que no es normal el uso del puerto USB desde cualquier app., puesto que Window$ parece manejarlo como un puerto COM virtual cuando la impresora lo precisa.

Bueno, basta de chacharas que sino me voy a extender demasiado. En torry encontré este componente (http://www.torry.net/quicksearchd.ph...rint&Title=Yes) con código fuente que manda caracteres a la impresora por default. Y colorín colorado problema solucionado

Espero que te sirva, es muy simple de utilizar.
__________________
Suerte
.: Gydba :.
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


La franja horaria es GMT +2. Ahora son las 21:54:47.


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