473,386 Members | 1,886 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,386 software developers and data experts.

Visual Basic 6.3 help copy a pdf page

Hello and thanks for your help,
I am using Word and Visual basic 6.3, I am not a professional programmer but have gotten some basic stuff done using help menus and books however finding anything referring to pdf code is hard. The VB help lib. is pretty much useless and I have bought a few books but they too do not explain how to code pdfs. This is my problem. I am copying a jpeg to a PDF and I would like to copy a page in the pdf and past to a word doc. Here is my code:
Sub adobe_Copy_Paste()
Const DOC_FOLDER As String = "C:\"
Dim objCurrent
Dim strFormName As String
Dim blnNeedToClose As Boolean
Dim AcroApp As CAcroApp
Dim avCodeFile As CAcroAVDoc
Dim avFormCapture As CAcroAVDoc
Dim pdCodeFile As CAcroPDDoc
Dim pdFormCapture As CAcroPDDoc
Dim lngPage As Long
Dim AVPage As CAcroAVPageView
Dim PDPage As CAcroPDPage
'Start Acrobat in the background
Set CAcroApp = CreateObject("AcroExch.App")
'Uncomment the following line to watch the program run
CAcroApp.Show
Set CavCodeFile = CreateObject("AcroExch.AVDoc") 'This is the code file
Set CavFormCapture = CreateObject("AcroExch.AVDoc") 'This will be each jpg in turn
CavCodeFile.Open DOC_FOLDER & "\report.pdf", "Steves File"
Set CpdCodeFile = CavCodeFile.GetPDDoc
'Open the jpg file
CavFormCapture.Open DOC_FOLDER & "\" & strFormName & "reports.JPG", ""
Set CpdFormCapture = CavFormCapture.GetPDDoc
'Insert the jpg at the right page
CpdCodeFile.InsertPages lngPage, CpdFormCapture, 0, 1, 0
If lngPage = 0 Then CpdCodeFile.MovePage 0, 2
MsgBox "Program has Run"
End Sub
In addition I forgot to mention I have used the tools- references-acrobat option.
I have read about the function CopyToClipboard(boundRect As Object, nXOrigin As Integer, nYOrigin As Integer, nZoom As Integer; however I do not know how to use it. With out an example to study I do not know how to reference it as an object much less use or reference the boundRect As Object, nXOrigin As Integer, nYOrigin As Integer, nZoom. Please can you give me some advice. Thank you so much for your time and consideration.
Sincerely,
Steve
Sep 24 '07 #1
0 1227

Sign in to post your reply or Sign up for a free account.

Similar topics

1
by: Corrie Meyer | last post by:
Announcement: SwiftReports standard edition 1.0 for Visual Studio ..NET 2003 released by UniSwift. We are pleased to announce the first release of a fully-managed reporting tool for the...
2
by: janice_2k | last post by:
Dear Sir/Mdm, I am writing this on behalf of my company. We bought the Visual Studio .NET Enterprise version but currently we need to use Visual Basic 6 for a small development. We are not able to...
0
by: Robert Weinstein | last post by:
THe EULA is a bit vauge on this. I just received a Promotional Sample copy from MS of Visual Basic.Net Standard Ed. Re (Visual Basic at the Movies) promotion...
3
by: dave | last post by:
ISBN 1-861000-88-X I'm confused about these references to the usage of recursion pertaining to example Ex6_08A: On page 236 in the last sentence of the 3rd paragraph "Since any set of...
4
by: Corepaul | last post by:
I am a beginner, using Access 2000. I am having difficulty with the Visual Basic Help. Specifically, using the Index tab, when I enter "OpenRecordset" in the keyword field and click the Search...
0
by: planetthoughtful | last post by:
Hi All, It seems my installation of Visual Basic Help for Access 2003 is missing pages / entries. eg, when I do a search on 'subform' and then click on 'Me Property' in the search results, I...
16
by: Nathan Sokalski | last post by:
I have Visual Studio .NET and SQL Server Desktop Engine on my computer. I have created an empty database using Visual Studio .NET's Server Explorer. However, I am having trouble connecting to the...
10
by: Steve | last post by:
I am trying to create a DLL in Visual Studio 2005-Visual Basic that contains custom functions. I believe I need to use COM interop to allow VBA code in Excel 2002 to access it. I've studied...
6
by: Salman | last post by:
I would like to know how I can distribute the application that I create with Visual C++ express edition. I checked the menu options to find a deploy option similar to the one found on the Visual...
0
by: taylorcarr | last post by:
A Canon printer is a smart device known for being advanced, efficient, and reliable. It is designed for home, office, and hybrid workspace use and can also be used for a variety of purposes. However,...
0
by: Charles Arthur | last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
0
by: aa123db | last post by:
Variable and constants Use var or let for variables and const fror constants. Var foo ='bar'; Let foo ='bar';const baz ='bar'; Functions function $name$ ($parameters$) { } ...
0
by: ryjfgjl | last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
0
by: emmanuelkatto | last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel
0
BarryA
by: BarryA | last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
1
by: nemocccc | last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
0
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
0
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.