[OFF] SUPORTE PARA CORRE?ÃO DE CÓDIGO - REMUNERADO

GNCNET 25/05/2015 12:19:32
#446988
Preciso de suporte para a configurar estas necessidades:
Valor do suporte: Informar custo inbox

PRIMEIRO
Estou tentando imprimir um arquivo pdf visualizado no webbrowser, mas não consigo.
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


SEGUNDO
preciso encontrar os dados que estão entre estas strings em uma página da web, entretanto, com esta função, só consigo encontrar o primeiro dado.
O [Ô]Campo_encontrado[Ô] sempre fica o mesmo.

Dim inicio As String
Dim fim As String
Dim Campo_encontrado As String
Dim Nome_produto As String
Dim Fabricante As String
Dim Expediente As String
Dim Data_de_fabricacao As String

For i = 0 To 3
inicio = InStr(RichTextBox1.Text, [Ô]<td height=[ô]35px[ô]>[Ô])
fim = InStr(RichTextBox1.Text, [Ô]</td>[Ô])
Campo_encontrado = Mid(RichTextBox1.Text, inicio, fim - inicio)

If i = 0 Then Nome_produto = Campo_encontrado
If i = 1 Then Fabricante = Campo_encontrado
If i = 2 Then Expediente = Campo_encontrado
If i = 3 Then Data_de_fabricacao = Campo_encontrado

Next i
LUIZCOMINO 25/05/2015 13:40:10
#446989 Resposta escolhida
amigo a segunda parte se resolve fácil assim


Dim inicio As String
Dim fim As String
Dim Campo_encontrado As String
Dim Nome_produto As String
Dim Fabricante As String
Dim Expediente As String
Dim Data_de_fabricacao As String   
inicio =1
Do While (inicio <>0)
        inicio = InStr(inicio ,RichTextBox1.Text, [Ô]<td height=[ô]35px[ô]>[Ô])
        fim = InStr(inicio ,RichTextBox1.Text, [Ô]</td>[Ô])

        if inicio =0 then exit do
        Campo_encontrado = Mid(RichTextBox1.Text, inicio, fim - inicio)
        
        msgbox Campo_encontrado
        
        inicio =inicio +1
loop
GNCNET 25/05/2015 14:21:56
#446991
Luiz,
Já estou lhe devendo!
GNCNET 25/05/2015 14:34:55
#446992
A necessidade da impressão não precisa necessariamente ser pelo webbrowser. Se puder imprimir o arquivo diretamente pelo commondialog a aprtir da 2a pagina, resolve.
LUIZCOMINO 25/05/2015 14:52:22
#446993
amigo teste assim:

WebBrowser1.Navigate ([Ô]C:\Teste\1.pdf[Ô])
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT
GNCNET 03/06/2015 11:32:57
#447347
Luiz, obrigado mais uma vez.
Tópico encerrado , respostas não são mais permitidas
Voltar