Vet någon hur man öppnar och skriver ut PDF-filer via VisualBasic

Finns Acrobat installerad bör det gå att öppna och skriva ut genom en Browser-kontroll. Åtminstone fungerar det i ett av mina program.

Visa gärna hur man gör

Sub FileOpenProc()
On Error GoTo Error

With fMainForm.dlgCommonDialog
.MaxFileSize = 512
.FLAGS = cdlOFNFileMustExist
.FileName = ""
.DialogTitle = "Open"
.CancelError = False
.Filter = "All Files (*.*)|*.*"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
FileName = .FileName
End With

OpenFile (FileName)

Exit Sub
Error:
Call MsgBox("Can't open file!", vbExclamation, App.Title)
fMainForm.MousePointer = vbNormal
End Sub


Sub OpenFile(FileName)
On Error GoTo Error

If LCase(Right$(FileName, 4)) = ".pdf" Then
frmBrowser.StartingAddress = FileName
frmBrowser.Show
fMainForm.ActiveForm.Caption = FileName
Exit Sub
End If

Error:
Call MsgBox("Cannot open file!", vbInformation, App.Title)
fMainForm.MousePointer = vbNormal

End Sub

Var stressad vid mitt tidigare svar. Jag har lagt in ett exempel under Tips & tricks (Allmänt/Allmänt) det tror jag bättre visar hur du skall gå tillväga.

Fungerade utmärkt. Tackar så mycket

Kan man få programmet att skriva ut sidan automatiskt.

Tack på förhand

Kan tyvärr ej svara på detta. Kanske någon annan har ett svar. Experimentera annars.