Drucken im Netzwerk

[_HAWK_]

Code:

var lst1:textfile;
begin
          AssignPRN(LST1);
          Rewrite( LST1);
          WriteLn( LST1, '; Chargen.FMT' );
          WriteLn( LST1, 'M l LBL;CHARGEN' );
          WriteLn( LST1, 'R VA;',sArtikelnummer );
          WriteLn( LST1, 'R VAB;',sABEZ );
          WriteLn( LST1, 'R VWE;',sWENR );
          WriteLn( LST1, 'R TWE;WE - Nummer' );
          WriteLn( LST1, 'R TH;CHARGEN - ETIKETT' );
          WriteLn( LST1, 'R TA;Artikelnummer' );
          WriteLn( LST1, 'R TAB;Artikelbez.' );
          WriteLn( LST1, 'R BWE;',sWENR );
          WriteLn( LST1, 'R BA;',sSAP );
          WriteLn( LST1, 'A',sMenge );

          System.CloseFile(LST1);
end;

So ich habe es jetzt mal auf diese weise probiert und funktioniert.
Das Problem ist nur ich habe ein Etikettendrucker und diese Befehler sind Druckerspezifisch. Der Drucker druckt mir das allerdings genauso aus wie es da steht. Er sollte aber diese Befehle umsetzen können.
Hat da vielleicht jemand ne ahnung ob man da noch was einstellen kann, dass der drucker das als befehl interpretiert und nicht als normalen text?

Bei dem code würde es funktionieren nur das ist dann kein nw-drucker sondern die parallele schnittstelle...

Code:

var lst1:text;
    begin
          AssignFile(LST1,'LPT1');
          Rewrite( LST1);
          WriteLn( LST1, '; Chargen.FMT' );
          WriteLn( LST1, 'M l LBL;CHARGEN' );
          WriteLn( LST1, 'R VA;',sArtikelnummer );
          WriteLn( LST1, 'R VAB;',sABEZ );
          WriteLn( LST1, 'R VWE;',sWENR );
          WriteLn( LST1, 'R TWE;WE - Nummer' );
          WriteLn( LST1, 'R TH;CHARGEN - ETIKETT' );
          WriteLn( LST1, 'R TA;Artikelnummer' );
          WriteLn( LST1, 'R TAB;Artikelbez.' );
          WriteLn( LST1, 'R BWE;',sWENR );
          WriteLn( LST1, 'R BA;',sSAP );
          WriteLn( LST1, 'A',sMenge );

          CloseFile(LST1);
end;

Danke schon mal im Vorraus!

mfg HAWK