Imprimir arquivo direto para impressora

Question

Oi Uso Delphi 6 com o quick report mesmo.Estou precisando imprimir alguns p�ginas que foram copiadas da internet e quando tem rela��o com o produto que estiver indicado ela seja impressa automamticame...

Massuda · Answer

Do modo como voc� est� querendo fazer, provavelmente ser� impresso o c�digo HTML das p�ginas e acho que n�o � isso que voc� quer, certo?

Acho que o jeito mais simples para imprimir arquivos HTML � pedir para o Internet Explorer imprimir esses arquivos; D� uma olhada [url=http://www.scalabium.com/faq/dct0127.htm]neste exemplo[/url] (em ingl�s).

Salupe · Answer

Peguei a rotina, coloquei as uses corretamente, mas ele indica que o objeto foi desconectado do cliente
Uma outra coisa, tem como eu fazer essa impress�o ficar em paisagem em vez de retrato.

procedure TENTRELREGISTROS.PrintHTMLByIE(const url: string);
const
OLECMDID_PRINT = $00000006;
OLECMDEXECOPT_DONTPROMPTUSER = $00000002;
var
ie, vaIn, vaOut: Variant;
begin
ie := CreateOleObject(�InternetExplorer.Application�);
ie.Navigate(url); // neste ponto que d� o erro.
ie.Visible := True;
ie.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
end;

saberia me dizer o porque.

Massuda · Answer

Testei o c�digo e percebi que h� uma demora na hora que pede para carregar a p�gina qu causa falha na hora de imprimir (a p�gina ainda est� carregando quando manda imprimir); um jeito de evitar isso seria fazer...

...
  ie.Visible := True;
  while ie.Busy do begin // espera carregar a p�gina
    Sleep(100);
  end;
  ie.ExecWB(...

N�o sei como faria para imprimir a p�gina em paisagem ao inv�s de retrato.

Salupe · Answer

A rotina de espera que voc� acrescentou n�o chega nem a ser executada, pois quando chega no segundo comando, mesmo que seja o de visibilidade, ele fala que o componente foi desconectado pelo cliente. Ser� que est� faltando algum componente no meu delphi?

Massuda · Answer

Eu testei com o site do Google (url = �//www.google.com.br/�) e um arquivo na minha m�quina (por exemplo, url = �file:c:meus documentosregistros869.htm�). Uso Delphi 5 e IE 6....

Salupe · Answer

O arquivo � aberto mas na hora do �ltimo comando (no ie.exewb) ele indica que :

�Tentando revogar um destino ignorado que nao foi revogado�.

O que pode ser isso?

Agrade�o antecipadamente qualquer ajuda.

Massuda · Answer

[quote:582f0be229=�salupe�]�Tentando revogar um destino ignorado que nao foi revogado�.[/quote:582f0be229]N�o fa�o id�ia do que possa ser....

Salupe · Answer

ainda n�o consegui resolver esse problema.

ele ainda fala que �foi revogado�.

ser� que alguem poderia me dizer qual a utilidade desses n�meros na rotina, o que eles querem fazer.

OLECMDID_PRINT = $00000006;
OLECMDEXECOPT_DONTPROMPTUSER = $00000002;

ser� que n�o s�o eles que est�o dando o problema.

Agrade�o antecipadamente qualquer ajuda.

Massuda · Answer

Sobre os valores...[list:5e449f3ef7][*:5e449f3ef7]OLECMDID_PRINT: comando para impress�o[*:5e449f3ef7]OLECMDEXECOPT_DONTPROMPTUSER:op��o de n�o exibir a caixa de di�logo de impress�o do IE[/list:u:5e449f3ef7]...e os valores est�o corretos (conferem com a unit shdocvw.pas do Delphi).

ainda n�o consegui resolver esse problema. ele ainda fala que �foi revogado�.

Dando uma olhada no site da MS, encontrie um KB que [url=http://support.microsoft.com/?kbid=251133]fala desse problema[/url], mas s� faria sentido se o seu Internet Explorer for muito antigo (o erro � gerado porque o IE n�o suporta a fun��o solicitada). Qual a vers�o do seu IE?

Massuda · Answer

Pesquisando um pouco mais, descobri que o IE 5.0/5.5 n�o permite imprimir sem exibir a caixa de di�logo. Experimente fazer desse modo...

...
const 
  OLECMDID_PRINT = $00000006; 
  OLECMDEXECOPT_PROMPTUSER = $00000001; 
  OLECMDEXECOPT_DONTPROMPTUSER = $00000002; 
var 
  ie, vaIn, vaOut: Variant; 
begin 
  ie := CreateOleObject(�InternetExplorer.Application�); 
  ie.Navigate(url);
  ie.Visible := True; 
  while ie.Busy do begin // espera carregar a p�gina 
    Sleep(100); 
  end; 
  ie.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut); 
end;

Salupe · Answer

meu ie � o 6tentei v�rios formatos a nova rotian que voc� passou e mesmo assim n�o funcionou. Ali�s agora piorou, na primeira vez que pede, ele indica que n�o pode abrir o arquivo, depois na segunda que ele foi revogado.E eu realmente preciso fazer isso.Existe alguma outra forma de fazer essa impress�o....

Massuda · Answer

[quote:b2bcee4d86=�salupe�]...mesmo assim n�o funcionou.[/quote:b2bcee4d86]Fiquei sem id�ias... :cry: [quote:b2bcee4d86=�salupe�]Existe alguma outra forma de fazer essa impress�o.[/quote:b2bcee4d86]Acho que tem duas alternativas. Uma seria tentar fazer o Word imprimir (lembro que o Word consegue ler e imprimir HTML) e a outra seria procurar um componente de terceiros que renderizasse o HTML e que tivesse capacidade de impress�o. Usar o Word parece ser mais simples do que a outra alternativa....

Dedi · Answer

uso Ie6 Sp2, delphi 6 aumentei o tempo para 2000 e imprimi corretamente.........acredito que este tempo pode variar de acordo com o carregamento da pagina  desejada......

Firekiller · Answer

Voc� poderia tentar assim:uses ShellApi;...ShellExecute(Handle, �print�,�c:Windowspagina.html�, nil, nil, SW_HIDE);...

Salupe · Answer

Funcionou Obrigado pela ajuda pessoal....

F�rum Imprimir arquivo direto para impressora #299665