Print a pdf or a jpg from a form (1 Viewer)

mrrayj60

Registered User.
Local time
Yesterday, 19:34
Joined
Sep 3, 2009
Messages
103
I need to print a pdf doc from this form - Whats the best way to show it to the user so I can tell them to click the button?
The document is in a set location on our server so I can embed a exact path if needed
Thanks
Ray


exhibit C COMMAND BUTTON is a pdf image I need to print.JPG
exhibit C is a pdf image I need to print.JPG
 

theDBguy

I’m here to help
Local time
Yesterday, 16:34
Joined
Oct 29, 2018
Messages
10,767
Hi Ray. No guarantees but you could try using a browser control to display the pdf and ShellExecute API to print it. Good luck.
 

Ranman256

Registered User.
Local time
Yesterday, 19:34
Joined
Apr 9, 2015
Messages
3,573
I use this code to open the JPG in its natural app, and print from that...
Paste this code into a module, and it will open ANY file in its native application.
usage: OpenNativeApp "c:\folder\file.pdf"
will open it in acrobat
and
OpenNativeApp "c:\folder\"
will open the folder

OpenNativeApp txtBox
opens the item in the text box.

Code:
'Attribute VB_Name = "modNativeApp"
'Option Compare Database
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Const SW_SHOWNORMAL = 1
Const SE_ERR_FNF = 2&
Const SE_ERR_PNF = 3&
Const SE_ERR_ACCESSDENIED = 5&
Const SE_ERR_OOM = 8&
Const SE_ERR_DLLNOTFOUND = 32&
Const SE_ERR_SHARE = 26&
Const SE_ERR_ASSOCINCOMPLETE = 27&
Const SE_ERR_DDETIMEOUT = 28&
Const SE_ERR_DDEFAIL = 29&
Const SE_ERR_DDEBUSY = 30&
Const SE_ERR_NOASSOC = 31&
Const ERROR_BAD_FORMAT = 11&

Public Sub OpenNativeApp(ByVal psDocName As String)
Dim r As Long, msg As String
r = StartDoc(psDocName)
If r <= 32 Then
'There was an error
Select Case r
Case SE_ERR_FNF
msg = "File not found"
Case SE_ERR_PNF
msg = "Path not found"
Case SE_ERR_ACCESSDENIED
msg = "Access denied"
Case SE_ERR_OOM
msg = "Out of memory"
Case SE_ERR_DLLNOTFOUND
msg = "DLL not found"
Case SE_ERR_SHARE
msg = "A sharing violation occurred"
Case SE_ERR_ASSOCINCOMPLETE
msg = "Incomplete or invalid file association"
Case SE_ERR_DDETIMEOUT
msg = "DDE Time out"
Case SE_ERR_DDEFAIL
msg = "DDE transaction failed"
Case SE_ERR_DDEBUSY
msg = "DDE busy"
Case SE_ERR_NOASSOC
msg = "No association for file extension"
Case ERROR_BAD_FORMAT
msg = "Invalid EXE file or error in EXE image"
Case Else
msg = "Unknown error"
End Select
' MsgBox msg
End If
End Sub
 

mrrayj60

Registered User.
Local time
Yesterday, 19:34
Joined
Sep 3, 2009
Messages
103
thanks - I used a hyper link and that opens the exhibits for them, they see what they need and print it or email it - cool
HYPERLINK.JPG
Ray
 

theDBguy

I’m here to help
Local time
Yesterday, 16:34
Joined
Oct 29, 2018
Messages
10,767
Hi Ray. Glad to hear you got it sorted out. Good luck with your project.
 

Users Who Are Viewing This Thread (Users: 0, Guests: 1)

Top Bottom