Bom dia!
Pesquisando sobre o assunto para um colega de outra lista, me deparei com o
seguinte código fonte:
[code]
var
Arq : TextFile
Begin
if PrintDialog1.Execute then begin
AssingPrn(Arq);
ReWrite(arq);
Writeln(Arq, 'Este é um teste !!');
CloseFile(Arq);
end;
End;
[/code]
Alguém que tenha uma impressora USB poderia fazer a caridade de testar se esse
código funciona? Se tiver mais de uma impressora e puder repetir o teste seria
ótimo.
Muito do material que achei para impressão USB está em inglês e é muito
nebuloso, para não dizer um quebra-cabeça. Se o código acima funcionar,
problema resolvido. Mas se não funcionar, queria tentar montar esse
quebra-cabeça.
[]'s
Ricardo.
_________________________________________________________________
"Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!"
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
