Estou usando este comando para fazer a impressão da etiqueta em uma Argox:
with ACBrETQ1 do
begin
Modelo := etqPpla;
Porta := 'LPT1';
LimparMemoria := true ;
Ativar;
{ImprimirTexto(orNormal, 2, 1, 1, 201, 30, 'Nome: '+RemoveAcento(dmMain.qPacienteNOME_PACIENTE.asstring));
ImprimirTexto(orNormal, 2, 1, 1, 151, 30, 'RG: '+RemoveAcento(dmMain.qPacienteRG_NUMERO.asstring)+' CPF: '+FormatMaskText('999.999.999-99;0;_', dmMain.qPacienteCPF.asstring));
ImprimirTexto(orNormal, 2, 1, 1, 101, 30, 'Unidade: '+DBEdit4.Text);
ImprimirTexto(orNormal, 2, 1, 1, 50, 30, 'Especialidade: '+cxDBLookupComboBox1.Text);
ImprimirTexto(orNormal, 1, 1, 1, 10, 30, DBEdit1.Text+' '+cxDBMaskEdit1.Text);}
ImprimirTexto(orNormal, 2, 1, 1, 401, 30, 'Data : '+DBEdit1.Text+' Hora: '+cxDBMaskEdit1.Text);
ImprimirTexto(orNormal, 2, 1, 1, 351, 30, 'Nome : '+sNome);
ImprimirTexto(orNormal, 2, 1, 1, 301, 30, 'RG : '+sRG);
ImprimirTexto(orNormal, 2, 1, 1, 251, 30, sMae);
ImprimirTexto(orNormal, 2, 1, 1, 201, 30, 'End. : '+copy(sEndereco,1,44));
ImprimirTexto(orNormal, 2, 1, 1, 151, 30, 'CEP : '+sCEP);
ImprimirTexto(orNormal, 2, 1, 1, 101, 30, 'Orig.: '+cxDBLookupComboBox3.Text+' - '+RemoveAcento(DBEdit2.Text));
ImprimirTexto(orNormal, 2, 1, 1, 51, 30, 'Enc. : '+cxDBLookupComboBox2.Text+' - '+RemoveAcento(DBEdit4.Text));
ImprimirTexto(orNormal, 2, 1, 1, 1, 30, 'Esp. : '+cxDBLookupComboBox4.Text+' - '+RemoveAcento(cxDBLookupComboBox1.Text));
//ImprimirBarras(orNormal, 'F', '2', '2', 32, 0, '7896003701685', 90);
Imprimir(StrToInt64Def(RemoveChar(cQt),1), StrToInt('0'));
Desativar;
end;
A duvida é a seguinte: Como faço para a etiqueta voltar ao lugar correto para a proxima impressão, porque ela respeita a impressão, mas quando o usuario termina de fazer a impressão da etiqueta ele destaca a etiqueta, só que para ele voltar a etiqueta no lugar correto da proxima impressão ou ele perde uma etiqueta ou tem que fazer manualmente, o que é necessario abrir a impressora, soltar o ribbon, etc. O que posso fazer para corrigir isso?