FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Impresion en Tiquetes o Tirillas
Hola Amigos, espero esten bien todos. Tengo una necesidad de imprimir en tiquetes o tirillas , como las de los supermercados... pero hasta ahora siempre he impreso en impresoras para papel carta u oficio etc.....pero no en estos delgados papeles de impresion especial... si alguien me puede dar una idea le agradezco..por que estoy azul. De antemano muchas gracias..
__________________
No hay metas imposibles... sólo barreras mentales. |
#2
|
||||
|
||||
Hola, en principio la impresión es igual que en las impresoras "grandes".
Teniendo instalados los driver correctos de la impresora de tiquets, y ajustando el tamaño de la hoja a imprimir, no deberías tener ningún problema.
__________________
Progress Openedge https://abevoelker.com/progress_open...dered_harmful/ Delphi forever... |
#3
|
||||
|
||||
Imprecion de tiquetes de caja, colillas o tirillas
Saludos compañeros, yo sufri bastante tiempo con ese asunto pero pude crear un archivo con la direccion de el puerto lpt1 y le imprimi directametnte a una epson tm-u220 y pude a su ves cortar el papel y abrir el cajon de dinero (Dynapos) te paso un componente que te servira para realizar este tipo de impresion, solo haste el .pas e instala el componente lo demas es facil
unit TicketPrinter; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Printers,WinSpool; type TTicketPrinter = class(TComponent) private PRTPort : String;//PUERTO DONDE ESTA CONECTADA LA IMPRESORA PRTCutSTR : String;//SECUENCIA PARA EL CORET DE PAPEL PRTBoxSTR : String;//SECUENCIA PARA EL ABRIR LA CAJA DE DINERO PRTOpen : Boolean;//BANDERA PARA SABER SI HABRE LA CAJA DE DINERO PRTCut : Boolean;//BANDERA PARA VER SI CORTA EL PAPEL PRTLines : TStrings; PRTFont : TFont; procedure SetLines(Value: TStrings); procedure SetFont(Value: TFont); protected public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Print; published property Lines : TStrings read PRTLines write SetLines; Property PrinterPort : String read PRTPort Write PRTPort ; Property CutStr : String read PRTCutSTR Write PRTCutSTR ; Property OpenStr : String read PRTBoxSTR Write PRTBoxSTR ; Property Cut : Boolean read PRTCut Write PRTCut; Property Open: Boolean read PRTOpen Write PRTOpen; Property Font: TFont read PRTFont write SetFont; end; procedure Register; {------------------------------------------------------------------------------} implementation {$R *.res} {------------------------------------------------------------------------------} procedure Register; begin RegisterComponents('DINAMIS',[TTicketPrinter]); end; {------------------------------------------------------------------------------} constructor TTicketPrinter.Create(AOwner: TComponent); begin inherited Create(AOwner); PRTLines := TStringList.Create; PRTFont := TFont.Create; PRTOpen := False; PRTCut := False; PRTPort := 'LPT1'; {ESTOS VALORES SON POR DEFECTO PARA LA SERIE DE IMPREOSRAS EPSON TM-U2XXXX} PRTBoxSTR := #27+'p0'+#100+#0;//ESTA SECUENCIA ABRE EL CAJON DE DINERO PRTCutSTR := #29+'V'+#66+#20;//ESTA SECUENCIA CORTA EL PAPEL end; destructor TTicketPrinter.Destroy; begin PRTLines.Free; PRTFont.Free; inherited Destroy; end; procedure TTicketPrinter.SetLines(Value: TStrings); begin PRTLines.Assign(Value); end; procedure TTicketPrinter.SetFont(Value: TFont); begin PRTFont.Assign(Value); end; procedure TTicketPrinter.Print; var Imp : TextFile; Ind : Word; begin if PRTPort <> '' then begin AssignFile(Imp,PRTPort); try Rewrite(Imp); for Ind := 0 to PRTLines.Count -1 do Writeln(Imp,PRTLines[Ind]); if PRTCut then Writeln(Imp,PRTCutSTR); if PRTOpen then Writeln(Imp,PRTBoxSTR); finally CloseFile(Imp); end end else MessageDLG('No se ha hasignado el puerto donde esta conectada la impresora',mtError,[mbok],0); end; end. |
|
|
|