[solved] Print Sequence of escape in NAVISION

Hi Ing. Sacek, I've finally found the printer's table (thanks). Now, when I execute the CU, it show this error: "This Automation variable has not been instatiated... etc.".

This is the sequence that i've done:
1) I've registered your dll with REGSVR32
2) I've created a new CU and instantiate a variable (named NaviPrint) of type "Automation" referencing 'NaviPrinter Library'.NaviPrinterClass.
3) I've created two other variable:
pathtxtFile - Text - 30
PrinterName - Text - 50
4) Then in OnRun() event:
pathtxtFile := 'c:\text.txt';
PrinterName := '\\Printer\Generic / Text Only';

NaviPrint.DirectPrint(PrinterName, pathtxtFile);

What's wrong?

Thank's ](*,)

Alex

Thank you Thomas.

Now I try.

Alex

Hi,
I've a problem: ](*,) when I execute the CU, now it show this error:

The Text '.............' is too long. Text can have a maximum length of 30 character

What does it means? The string wasn't max. 1024 char long ?

I'm sure that I do some errors but I don't know how to do.

Thanks

Alex

I enclose the source.

In OnRun() Event:

txtFile.WRITEMODE := TRUE;
txtFile.TEXTMODE := TRUE;
txtFile.QUERYREPLACE := TRUE;

txtFile.CREATE('c:\textNav.txt');

txtFile.CREATEOUTSTREAM(strOutStream);
strOutStream.WRITETEXT('{D0370,0400,0350|}{T20C52|}{AX;+000,+000,+00|}{AY;+00,0|}{C|}{PC000;0377,0300,10,15,T,22,B|}');
strOutStream.WRITETEXT('{PC001;0361,0262,05,05,B,22,B|}{PC002;0380,0144,05,05,A,22,B|}');
strOutStream.WRITETEXT('{PC003;0380,0121,05,05,A,22,B|}{PC004;0380,0095,05,05,A,22,B|}');
strOutStream.WRITETEXT('{PC005;0380,0070,05,05,A,22,B|}{PC006;0380,0045,05,05,A,22,B|}');
strOutStream.WRITETEXT('{PC007;0380,0020,05,05,A,22,B|}{XB00;0311,0251,5,3,03,2,0060,+0000000000,020,1,00|}');
strOutStream.WRITETEXT('{RC000;X.XXXX              |}{RC001;XXXXXXXXXXXXX    XXX|}');
strOutStream.WRITETEXT('{RC002;XXXX                                                                                     |}');
strOutStream.WRITETEXT('{RC003;XXXX                                                                                     |}');
strOutStream.WRITETEXT('{RC004;XXX.XXX                                                                                  |}');
strOutStream.WRITETEXT('{RC005; |}{RC006; |}{RC007; |}{RB00;4002154654441|}');
strOutStream.WRITETEXT('{LC;0000,0325,0700,0325,1,4|}{RM;-00-00|}{XS;I,0001,0002C5200|}');

txtFile.CLOSE;

CREATE(NaviPrint);

pathtxtFile := 'c:\textNav.txt';
txtFile.OPEN(pathtxtFile);

PrinterName := 'StampaSuFile';
NaviPrint.DirectPrint(PrinterName, txtFile.READ(pathtxtFile));

And in GLOBALS:

txtFile File pathtxtFile Text 30 strOutStream OutStream NaviPrint Automation 'NaviPrinter Library'.NaviPrinterClass PrinterName Text 50

"

=D>

IT WORKS VERY WELL THIS DLL!! GREAT!!

Now it work correctly also the correct network printer !!!

Thanks.


Alex