rdprint impressao na saida USB
Bom dia!
Comprei o produto gerador de Relatorio, achei ele muito bom, so que clientes que tem impressora que a saida e na USb o relatorio não imprime, alguem conhece este produto e poderia me ajudar a resolver este problema???
Segue abaixo os comandos do rdprint para impressao:
RDprint1.UsaGerenciadorImpr := TRUE;
RDprint1.Impressora := Grafico;
RDprint1.Abrir;
RDprint1.TestarPorta := false;
if RDprint1.SETUP then
begin
total := 0;
while (cdsPadrao.Eof = false) do
begin
if (total > 50) then
begin
RDprint1.Novapagina;
total := 0;
end;
RDprint1.Imp(vLinha,01,cdsPadraoCLI_CODIGO.AsString);
RDprint1.Imp(vLinha,07,cdsPadraoCLI_NOME.AsString);
inc(VLinha);
cdsPadrao.Next;
end; // while
RDprint1.Fechar;
end
else
begin
showmessage(´Erro na inicialização do RDprint´)
end;
------------------------------------------
Grato
Placido
Comprei o produto gerador de Relatorio, achei ele muito bom, so que clientes que tem impressora que a saida e na USb o relatorio não imprime, alguem conhece este produto e poderia me ajudar a resolver este problema???
Segue abaixo os comandos do rdprint para impressao:
RDprint1.UsaGerenciadorImpr := TRUE;
RDprint1.Impressora := Grafico;
RDprint1.Abrir;
RDprint1.TestarPorta := false;
if RDprint1.SETUP then
begin
total := 0;
while (cdsPadrao.Eof = false) do
begin
if (total > 50) then
begin
RDprint1.Novapagina;
total := 0;
end;
RDprint1.Imp(vLinha,01,cdsPadraoCLI_CODIGO.AsString);
RDprint1.Imp(vLinha,07,cdsPadraoCLI_NOME.AsString);
inc(VLinha);
cdsPadrao.Next;
end; // while
RDprint1.Fechar;
end
else
begin
showmessage(´Erro na inicialização do RDprint´)
end;
------------------------------------------
Grato
Placido
Placido
Curtidas 0
Respostas
Dopi
12/03/2005
Provavelmente o produto mencionado abre a porta da Impressora (PRN ou LPT1) fisicamente usando Assignfile e WriteLn para escrever nela... Isso realmente não funciona em impressoras USB, pois elas não tem uma porta real...
Você poderia usar o mesmo método que programas DOS usam para imprimir em impressoras USB... Veja esse tópico:
http://forum.clubedelphi.net/viewtopic.php?t=6961&highlight=usb
Mas acho que a melhor maneira é pedir explicações ao Fornecedor... Se no pacote não constava essa ´restriçao´ ele deve tomar alguma providência..
Você poderia usar o mesmo método que programas DOS usam para imprimir em impressoras USB... Veja esse tópico:
http://forum.clubedelphi.net/viewtopic.php?t=6961&highlight=usb
Mas acho que a melhor maneira é pedir explicações ao Fornecedor... Se no pacote não constava essa ´restriçao´ ele deve tomar alguma providência..
GOSTEI 0
Einstein
12/03/2005
na visualizacao do relatorio vc clica no botao configurar e escolhe em impressora: Grafico Compativel com o Windows.
GOSTEI 0
Placido
12/03/2005
Bbrigado vou entrar em contato com o fornecedor..
Grato
Placido
Grato
Placido
GOSTEI 0