Is it possible to import data from the pdf documents as it could be imported from CSV or MS Word files (external sources)?When you Open do you mean view?
What do you mean by Stores in text box?
There is functionality to open adobe and view a particular pdf file. Is this what you mean?
David
Do you have any further information on how to view a pdf within Access? How do I go about utilizing ASPDF.dll in adobe reader v7?hi imran
i found a dll : ASPDF.dll in adobe reader v7.
i used it to preview any pdf file in vb6.
and it was free
Do you have any further information on how to view a pdf within Access? How do I go about utilizing ASPDF.dll in adobe reader v7?
Greatly apprecitated!
Well I am using the following code so I also suggest you to use that only once hopefully you can solve your problem and can also get the some of the idea regarding to it.
Private Sub Command1_Click
' Create a simple PDF file using the mjwPDF class
Dim objPDF As New mjwPDF
' Set the PDF title and filename
objPDF.PDFTitle = "Test PDF Document"
objPDF.PDFFileName = App.Path & "\test.pdf"
' We must tell the class where the PDF fonts are located
objPDF.PDFLoadAfm = App.Path & "\Fonts"
' View the PDF file after we create it
objPDF.PDFView = True
' Begin our PDF document
objPDF.PDFBeginDoc
' Set the font name, size, and style
objPDF.PDFSetFont FONT_ARIAL, 15, FONT_BOLD
' Set the text color
objPDF.PDFSetTextColor = vbBlue
' Set the text we want to print
objPDF.PDFTextOut _
"Hello, World! From mjwPDF (www.vb6.us)"
' End our PDF document (this will save it to the filename)
objPDF.PDFEndDoc
End Sub
I would like to try your method. Unfortunately you did not post the code for the mjwPDF class.
Would you please post a working sample database with all the required code.
Hi all
How to open pdf file stores in text box using vb 6
with Regards
You should try the following code :
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command_Click()
strDir = "<your files Directory>"
strFile = "<your filename>.pdf"
ShellExecute 0, "OPEN", strDir & strFile, "", strDir, 1
End Sub