FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
ya lo he solucionado. Os dejo la sólución para los que tengan el mismo problema que yo
Código:
(****************************************) (* Convertimos una cadena AnsiStr a OEM *) (****************************************) function StrToOem(const AnsiStr: string): string; begin SetLength(Result, Length(AnsiStr)); if Length(Result) > 0 then CharToOem(PChar(AnsiStr), PChar(Result)); end; ... procedure imprimeTicket(numTicket : integer); ... s := StrToOem(obtenDatosEmpresa(EMP_NOMB))+chr(13)+chr(10); WritePrinter(Handle, pchar(s), Length(S), N); ... Salu2 |
#2
|
|||
|
|||
sin complicaciones
hola xavales!
os veo bastante liados con los codigos y tal , yo como no soy tan experto como vosotros me limite a descargarme drivers nuevos y me lo ace solo :P mirar este link http://feniximvico.com/categorias.ph...78&ididioma=ES seguro k os ayuda mucho. adiosssssssssss |
#3
|
|||
|
|||
Cita:
Excelente solución me sirvio demasiado... para mis impresiones de ticket. Gracias |
|
|
|