var
txt: TextFile;
L, Q1, A, A1, B, C, D, E: string;
x: Integer;
begin
L := chr(13) + Chr(10);
Q1 := 'q500' + L;
A1 := 'A220,10,0,1,1,1,N,"PRODUCTO :"' + '"' + DM_INV_FAC.ProductoNOMBRE.Value + '"' + L;
B := 'B220,30,0,E30,2,20,100,B,' + '"' + DM_INV_FAC.ProductoCOD_PRODUCTO.Value + '"' + L;
C := 'A440,50,0,3,1,1,N,"P.V.P"' + L;
D := 'A440,70,0,3,1,1,N,' + '"' + FormatFloat('0.00', DM_INV_FAC.ProductoPRECIOA.Value) + '"' + L;
E := 'A210,20,1,1,1,1,N,' + '"' + DateToStr(date) + '"' + L;
AssignFile(Txt, 'LPT1');
Rewrite(Txt);
for X := 1 to n_contador.Value do
Writeln(Txt, L + 'N' + L + 'O' + L + 'S2' + L + 'D7' + L + 'ZT' + L + 'Q250,10' + Q1 + A + A1 + B + C + D + E + 'P1');
CloseFile(Txt);