Boa tarde a todos.
Preciso imprimir várias etiquetas com três colunas. No código exemplo abaixo, quando executo o método imprimir, na primeira execução ele imprime as três etiquetas, mas na próxima linha o método imprimir simplesmente não executa.
Neste exemplo apenas para facilitar o entendimento, não estou usando looping. Estou utilizando DelphiXE, impressora Bematech LB-1000, foi instalado o driver do fabricante.
Se alguém tiver uma idéia que possa ser, agradeço a atenção.
with ACBrETQ1 do
begin
DPI := dpi203;
Modelo := etqEpl2 ;
Porta := \\localhost\LB-1000;
LimparMemoria := True;
Ativar ;
ImprimirTexto(orNormal, 1, 1, 1, 10, 25, 'Etiqueta 1');
ImprimirBarras(orNormal, 'E30', '2', '2', 87, 25, '7898237690230', 70, becSIM);
ImprimirTexto(orNormal, 1, 1, 1, 10, 375, 'Etiqueta 2');
ImprimirBarras(orNormal, 'E30', '2', '2', 87, 375, '7898237690230', 70, becSIM);
ImprimirTexto(orNormal, 1, 1, 1, 10, 750, 'Etiqueta 3');
ImprimirBarras(orNormal, 'E30', '2', '2', 87, 750, '7898237690230', 70, becSIM);
imprimir(1,600);
ImprimirTexto(orNormal, 1, 1, 1, 10, 25, 'Etiqueta 4');
ImprimirBarras(orNormal, 'E30', '2', '2', 87, 25, '7898237690230', 70, becSIM);
ImprimirTexto(orNormal, 1, 1, 1, 10, 375, 'Etiqueta 5');
ImprimirBarras(orNormal, 'E30', '2', '2', 87, 375, '7898237690230', 70, becSIM);
ImprimirTexto(orNormal, 1, 1, 1, 10, 750, 'Etiqueta 6');
ImprimirBarras(orNormal, 'E30', '2', '2', 87, 750, '7898237690230', 70, becSIM);
imprimir(1,600);
ImprimirTexto(orNormal, 1, 1, 1, 10, 25, 'Etiqueta 7');
ImprimirBarras(orNormal, 'E30', '2', '2', 87, 25, '7898237690230', 70, becSIM);
ImprimirTexto(orNormal, 1, 1, 1, 10, 375, 'Etiqueta 8');
ImprimirBarras(orNormal, 'E30', '2', '2', 87, 375, '7898237690230', 70, becSIM);
ImprimirTexto(orNormal, 1, 1, 1, 10, 750, 'Etiqueta 9');
ImprimirBarras(orNormal, 'E30', '2', '2', 87, 750, '7898237690230', 70, becSIM);
imprimir(1,600);
Desativar;
end ;