Printen Pdf-file vanuit VB

[woody1]

Kan iemand mij helpen ik wil namelijk een Pdf-file printen vanuit Visual basic 6 (op een HP Officejet 5600) op de achtergrond.

Alvast hartelijke dank.:shocked::shocked:

Dit is wat ik op het moment heb:

Private Sub Command1_Click()
Dim RetVal
Dim String_Tmp1 As String
Dim String_Tmp2 As String
Dim String_Tmp3 As String

''.StartInfo.Arguments = "/t " & Chr(34) & FullPath & Chr(34) & " " & Chr(34) & prtName & Chr(34)

String_Tmp1$ = "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe"
String_Tmp2$ = " /t " & Chr(34) & App.Path & "\Test.pdf"
String_Tmp3$ = " " & Chr(34) & App.Path & "\Test.pdf"

'' Printen PDF-File --> progragram blijf hierna actief oplossing ???
''RetVal = Shell(String_Tmp1$ & String_Tmp2$, 0) '' Printen van de PDF-File.

'' Tonen PDF-File.
RetVal = Shell(String_Tmp1$ & String_Tmp3$, 1) '' Tonen van de PDF-File.
''RetVal = Shell("Ctrl + Q")
End Sub

 

[koen152]

ziet er ingewikkeld uit

 

[robbietjuh]

Hey,

Ziet er inderdaad lastig uit, maar er is een simpele oplossing.
Maak een WebBrowser en geef deze de naam "WebBrowser1".
Vervolgens zet je in de Properties "Visible" op "False".
Dat zorgt er namelijk voor dat de WebBrowser niet te zien is voor de gebruiker.
Zet vervolgens in je code:

Private Sub Command1_Click()

WebBrowser1.Url = New Uri(Chr(34) & App.Path & "\Test.pdf")       ' [B][COLOR="Red"]We laten de WebBrowser navigeren naar de PDF file[/COLOR][/B]
WebBrowser1.Print()       ' [B][COLOR="Red"]We printen de gegevens uit[/COLOR][/B]

End Sub

Dat is alles!
Echter weet ik niet zeker of het WebBrowser1.Print() is...
Meld het resultaat maar even

Groetjes,
Robert