Gerar Etiqueta - Não imprimi

[priajf]

Bom Dia Pessoal
Estou gerando uma etiqueta. Não da mensagem de erro, da a mensagem que foi gerada com sucesso.
Mais sair na ZEBRA não sai. O que pode ser???

att

[priajf]

BOM PESSOAL, FUI VERIFICANDO E VI QUE NÃO ESTÁ ENTRANDO NO LOOP.
VOU COLOCAR O CÓDIGO PRA VER SE alguém ME AJUDA

Selecionar tudo

	open c1;
	arq := text_io.fopen(v_porta,'w');
	loop
	  fetch c1 into r1;
	  exit when c1%notfound;
	 	  etiqueta:='^XA'||
    	    		'^FO15,100^FB470,1,0,L,0^A0N,40,20^CI0^FR^FD'||'Registro: '||'^FS'||
							'^FO100,140^FB620,2,0,L,0^A0N,40,35^CI0^FR^FD'||r1.nm_pessoafisica||'^FS'||
							'^FO15,220^FB470,1,0,L,0^A0N,40,20^CI0^FR^FDData Nascimento:^FS'||
							'^FO170,220^A0N,40,35^CI0^FR^FD'||r1.dt_nascimento||'^FS'||
					
					    etiqueta := etiqueta||'^XZ';
      			text_io.put_line(arq,etiqueta);
	end loop;	  
	text_io.fclose(arq);
	close c1;
	controle_de_msg('NOT','Etiquetas geradas com sucesso!');

[priajf]

Conseguir resolver. O problema esta no insert.
E com isso não achava nada no select da etiqueta.