How To: Combine PDFs Using InsertPages
Issue
How do I combine multiple PDFs into one PDF using Visual Basic?
Solution
This record contains VisualBasic code to demonstrate AcroExch.PDDoc InsertPages.
As far as InsertPages is concerned, the tricky part is to remember that the page number you will be inserting after is -1; in other words, you want to insert these pages before page 0, which is the first page of the document.
Private Sub Command1_Click()
Dim b As Boolean
Dim AcroPDDoc As CAcroPDDoc
Dim PDDoc As CAcroPDDoc
Set AcroPDDoc = CreateObject("AcroExch.PDDoc")
Set PDDoc = CreateObject("AcroExch.PDDoc")
b = PDDoc.Open("c:\testinsertpages.pdf")
b = AcroPDDoc.Open("c:\Tips.pdf")
b = AcroPDDoc.InsertPages(0, PDDoc, 0, 1, False)
b = AcroPDDoc.Save(1, "c:\Tips.pdf")
End Sub
Search Results:
Wednesday, November 4, 2009
Monday, November 2, 2009
Combine 2 PDF's Using vb.net
How To: Combine PDFs Using InsertPages
Issue
How do I combine multiple PDFs into one PDF using Visual Basic?
Solution
This record contains VisualBasic code to demonstrate AcroExch.PDDoc InsertPages.
As far as InsertPages is concerned, the tricky part is to remember that the page number you will be inserting after is -1; in other words, you want to insert these pages before page 0, which is the first page of the document.
Private Sub Command1_Click()
Dim b As Boolean
Dim AcroPDDoc As CAcroPDDoc
Dim PDDoc As CAcroPDDoc
Set AcroPDDoc = CreateObject("AcroExch.PDDoc")
Set PDDoc = CreateObject("AcroExch.PDDoc")
b = PDDoc.Open("c:\testinsertpages.pdf")
b = AcroPDDoc.Open("c:\Tips.pdf")
b = AcroPDDoc.InsertPages(0, PDDoc, 0, 1, False)
b = AcroPDDoc.Save(1, "c:\Tips.pdf")
End Sub
Issue
How do I combine multiple PDFs into one PDF using Visual Basic?
Solution
This record contains VisualBasic code to demonstrate AcroExch.PDDoc InsertPages.
As far as InsertPages is concerned, the tricky part is to remember that the page number you will be inserting after is -1; in other words, you want to insert these pages before page 0, which is the first page of the document.
Private Sub Command1_Click()
Dim b As Boolean
Dim AcroPDDoc As CAcroPDDoc
Dim PDDoc As CAcroPDDoc
Set AcroPDDoc = CreateObject("AcroExch.PDDoc")
Set PDDoc = CreateObject("AcroExch.PDDoc")
b = PDDoc.Open("c:\testinsertpages.pdf")
b = AcroPDDoc.Open("c:\Tips.pdf")
b = AcroPDDoc.InsertPages(0, PDDoc, 0, 1, False)
b = AcroPDDoc.Save(1, "c:\Tips.pdf")
End Sub
Friday, October 16, 2009
Easily Create Loading GIF's for free
Here is a website to create a Loading GIF and save it to your desktop very easily. Give it a try ?? Click Here
A few samples below are

Another one
A few samples below are

Another one
Wednesday, October 14, 2009
Disable Autorun of CD's,Pendrives etc
Here is the registry edit that can be done to disable the auto run feature in windows.
- Go to RUN type "Regedit".
- Go to Hkey_current_user/Software/Microsoft/windows/currentversion/policies/Explorer
- Add DWORD "NoDriveTypeAutoRun
- Edit the Value to Hexadecimal "FF"
Tuesday, October 6, 2009
Query to find no of multiple columns
SELECT id, COUNT(id) AS NumOccurrences
FROM Driver_History
GROUP BY id
HAVING (COUNT(id) = 2)
This above query gives all the rows that have same id's.
FROM Driver_History
GROUP BY id
HAVING (COUNT(id) = 2)
This above query gives all the rows that have same id's.
Monday, September 28, 2009
Connection Strings Made easy .
Visit this website for various connection strings such as to connect to Access,Excel etc...
Click Here
Once you get the connection string it is similar to any other database access. use ole db connection objects.
Click Here
Once you get the connection string it is similar to any other database access. use ole db connection objects.
Subscribe to:
Posts (Atom)