[ingel]

HOla .. les comento mi problemita
Este es codigo VBasic para la impresion de una etiqueta en una impresora Eltron (de codigos de barras)
El problemita es que lo tengo que transcribir a delphi.. y si apenas se algo de
delphi mucho menos de VB ..
Hasta ahora saque las comillas doble por simples y cambie el & por + aunque no se si sera correcto, asumo que no porque no me imprimio nada ...
GRACIAS
Ingel

CODIGO VBasic
------------
Private Sub Etiq_GrandeEAN13_Click()
Open "LPT1" For Output As #1
Print #1, Chr$(13)
Print #1, "O"
Print #1, "D8"
Print #1, "S2"
Print #1, "ZT"
Print #1, "JF"
Print #1, "I8,1"
Print #1, Chr$(13)
Print #1, "FK" & Chr$(34) & "FIXEDAT0" & Chr$(34)
Print #1, "FS" & Chr$(34) & "FIXEDAT0" & Chr$(34)
Print #1, "Q480,24"
Print #1, "q448"
Print #1, "A30,10,0,4,1,3,N," & Chr$(34) & "Bicicleta Marca OLMO LS" & Chr$(34)
Print #1, "A30,90,0,4,1,3,N," & Chr$(34) & "Modelo CGS24242W RDFGSJ" & Chr$(34)
Print #1, "A30,170,0,4,1,3,N," & Chr$(34) & "Linea de Texto numero 3" & Chr$(34)
Print #1, "B48,250,0,E30,3,9,180,B," & Chr$(34) & "779123456789" & Chr$(34)
Print #1, "FE"
Print #1, Chr$(13)
Print #1, "FR" & Chr$(34) & "FIXEDAT0" & Chr$(34)
Print #1, "?"
Print #1, "P1"
Close #1
End Sub


Mi codigo Delphi cuasimodificado
--------------------------------

procedure TFEtiquetas.BitBtn1Click(Sender: TObject);
var Impresora: TextFile;
begin
with Printer do begin
AssignPrn(Impresora);
Title:=' EAN-13 Grande '; // titulo de la cola de impresión....
Rewrite(Impresora);
Writeln(Impresora,chr(13));
Writeln(Impresora,'O' );
Writeln(Impresora,'D8' );
Writeln(Impresora,'S2' );
Writeln(Impresora,'ZT' );
Writeln(Impresora,'JF' );
Writeln(Impresora,'I8,1' );
Writeln(Impresora,Chr(13) );
Writeln(Impresora,'FK' + Chr(34) + 'FIXEDAT0' + Chr(34) );
Writeln(Impresora,'FS' + Chr(34) + 'FIXEDAT0' + Chr(34) );
Writeln(Impresora,'Q480,24' );
Writeln(Impresora,'q448' );
Writeln(Impresora,'A30,10,0,4,1,3,N,' + Chr(34) + 'Bicicleta Marca OLMO LS' + Chr(34) );
Writeln(Impresora,'FE' );
Writeln(Impresora,Chr(13) );
Writeln(Impresora,'FR' + Chr(34) + 'FIXEDAT0' + Chr(34) );
Writeln(Impresora,'?' );
Writeln(Impresora,'P1' );

CloseFile(Impresora);
end;
end;