Impresora de Etiquetas

[pruz]

Ya, mirando un poco de lo suyo y un poco de lo mio llegue a la solucion
les dejo el codigo

Código Delphi [-]
procedure TForm1.Button5Click(Sender: TObject);
var
   MyFile : TextFile;
   NomImpresora :  String;
begin
   NomImpresora := 'etique2.txt';
   AssignFile(MyFile, NomImpresora );
//   reset( MyFile );
   rewrite(MyFile);

   writeln( MyFile, 'SIZE 48.7 mm, 80.1 mm');
   writeln( MyFile, 'DIRECTION 0,0');
   writeln( MyFile, 'REFERENCE 0,0');
   writeln( MyFile, 'OFFSET 0 mm');
   writeln( MyFile, 'SET PEEL OFF');
   writeln( MyFile, 'SET TEAR ON');
   writeln( MyFile, 'CLS');
   writeln( MyFile, 'BARCODE 351,66,"128M",98,0,90,4,8,"!104XP-!09935986215"');
   writeln( MyFile, 'CODEPAGE 1252');
   writeln( MyFile, 'TEXT 248,235,"2",90,1,1,"XP-35986215"');
   writeln( MyFile, 'TEXT 196,220,"1",90,1,1,"Texto de muestra"');
   writeln( MyFile, 'BARCODE 154,69,"128M",114,0,90,3,6,"!104SOL-!0993598!100X125"');
   writeln( MyFile, 'TEXT 35,236,"2",90,1,1,"SOL-3598X125"');
   writeln( MyFile, 'PRINT 1,2');
   writeln( MyFile, '');
   CloseFile( MyFile );


   ShellExecute(0, 'open', ('etiquetas.bat'), nil, nil, SW_SHOW);
   MessageDlg( 'Etiquetas Impresas. Proceso Terminado.' , mtinformation , [mbOk] , 0 );

end;

Muchas gracias a todos por su colaboracion