pdf afdrukken

[scroogy]

Als ik een pdf wil afdrukken met de printer button krijg ik de melding dat het document niet kan worden afgedrukt.

Ik kan wel afdrukken met de menukeuze afdrukken in menu bestand.

Het zal wel een of andere instelling zijn maar welke ?

 

[rberkers]

Ik neem aan dat je het via afdrukken via Adobe Acrobat Reader hebt?

Welke versie gebruik als ik vragen mag.

Groeten,
Rob.

 

[scroogy]

Ik neem aan dat je het via afdrukken via Adobe Acrobat Reader hebt?

Welke versie gebruik als ik vragen mag.

Groeten,
Rob.

Dag Rob,

Die bedoel ik ja.

't is versie 7.0

 

[rberkers]

Ik heb met de 7.x-versie wel meer vreemde problemen gehad. Gelukkig is de nieuwe Adobe Reader 8 een stuk stabieler.

Je zou voor de grap jouw huidige Adobe Reader kunnen de-installeren, de nieuwe 8 versie downloaden en die installeren. En dan kijken of het printen wel normaal gaat.

Groeten,
Rob.

 

[woody1]

Ik heb nu het volgende wat werkend is, (versie 8):

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

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 ***** programma blijft actief afsluiten ---> hoe ??.
''RetVal = Shell(String_Tmp1$ & String_Tmp2$, 0) '' Printen van de PDF-File.

'' Tonen PDF-File en programma blijft actief ??.
RetVal = Shell(String_Tmp1$ & String_Tmp3$, 1) '' Tonen van de PDF-File.
''RetVal = Shell("Ctrl + Q")

End Sub