IMPRIMIR WEBBROWSER COM COMMONDIALOG

GNCNET 24/05/2015 11:41:24
#446973
Estou tentando imprimir um arquivo pdf visualizado no webbrowser, mas não consigo. Eis o código:
As dificuldades:
1- Aparece a caixa de impressão, mas não imprime
2- Preciso imprimir o intervalo a partir da página 2


Dim BeginPage, EndPage, NumCopies, i
WebBrowser1.Navigate ([Ô]C:\Teste\1.pdf[Ô])

CommonDialog1.CancelError = True
On Error GoTo Erro
CommonDialog1.ShowPrinter
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
For i = 1 To NumCopies
[ô] ponha o codigo para imprimir aqui
CommonDialog1.FileName = [Ô]C:\Teste\1.pdf[Ô]
Next i
Exit Sub
Erro:
MsgBox [Ô]A impressora não esta pronta ![Ô], vbCritical
DS2T 26/05/2015 23:10:39
#447059
Olá amigo!

O CommonDialog não funciona assim. Ele é apenas a interface.

é como quando você vai usar ele pra abrir ou salvar um arquivo.

Exemplo, você quer abrir um arquivo: Você vai selecionar o arquivo e clicar OPEN. Você verá que não terá nenhuma ação. Simplesmente porque o CommonDialog é apenas a interface. Basicamente ele te dirá qual arquivo deve ser aberto com a propriedade FileName. A partir do momento que você sabe o caminho do arquivo, você terá que fazer o código para abrir (seja usando um Shell, ou colocar dentro de um textbox.

No caso de imprimir é exatamente a mesma coisa. A interface do common dialog te dará apenas as propriedades de impressão (número de cópias, qual impressora, se é rascunho ou não, etc). A partir dessas informações, você deverá imprimir.
Esse é o código para imprimir o conteúdo do WebBrowser

seuWebBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0

Espero que tenha entendido.

Abraços!

LUIZCOMINO 27/05/2015 09:11:47
#447072
Resposta escolhida
Amigo você já criou esse tópico...


http://www.vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=446988&pagina=1
Tópico encerrado , respostas não são mais permitidas