Code làm việc với adobe acrobat ( PDF)

[chikaboom]

Hi all,

Mình có đoạn code để chuyển một file TIFF sang PDF. Code work , nhưng kết thúc nó lại hiện lên bảng "Save PDF as ". Mình muốn không xuất hiện bảng này và lưu file PDF vừa tạo theo một path định sẵn.

Tks all.

Public Sub AcrobatPrint()
Dim AcroExchApp As Acrobat.CAcroApp
Dim AcroExchAVDoc As Acrobat.CAcroAVDoc
Dim AcroExchPDDoc As Acrobat.CAcroPDDoc
Dim num As Integer

filey = "E:\Temp\7050C000000314POS060407XPOSNE1POS110620EGr_285_1.tif"
Set AcroExchApp = CreateObject("AcroExch.App")
Set AcroExchAVDoc = CreateObject("AcroExch.AVDoc")
' Open the [strfiley] pdf file
AcroExchAVDoc.Open filey, ""
' Get the PDDoc associated with the open AVDoc
Set AcroExchPDDoc = AcroExchAVDoc.GetPDDoc
' Get the number of pages for this pdf [and subtract one as zero based]
num = AcroExchPDDoc.GetNumPages - 1
Call AcroExchAVDoc.printPages(0, num, 1, True, True)
Call AcroExchPDDoc.Save(1, "E:\Temp\7050C000000314POS060407XPOSNE1POS110620EGr_285_1.pdf")

AcroExchApp.Exit
AcroExchAVDoc.Close (True)
'AcroExchPDDoc.Close
End Sub


Mình còn đoạn code nữa, cho phép combine 2 file PDF thành 1 file. Vấn đề là nếu mình có tổng file ( biến ) thì combine thành 1 file như thế nào. Mong các pro VBA xem qua giùm.

Sub Button1_Click()

Dim AcroApp As Acrobat.CAcroApp

Dim Part1Document As Acrobat.CAcroPDDoc
Dim Part2Document As Acrobat.CAcroPDDoc

Dim numPages As Integer

Set AcroApp = CreateObject("AcroExch.App")

Set Part1Document = CreateObject("AcroExch.PDDoc")
Set Part2Document = CreateObject("AcroExch.PDDoc")

Part1Document.Open ("C:\temp\Part1.pdf")
Part2Document.Open ("C:\temp\Part2.pdf")

' Insert the pages of Part2 after the end of Part1
numPages = Part1Document.GetNumPages()

If Part1Document.InsertPages(numPages - 1, Part2Document, 0, Part2Document.GetNumPages(), True) = False Then
MsgBox "Cannot insert pages"
End If

If Part1Document.Save(PDSaveFull, "C:\temp\MergedFile.pdf") = False Then
MsgBox "Cannot save the modified document"
End If

Part1Document.Close
Part2Document.Close

AcroApp.Exit
Set AcroApp = Nothing
Set Part1Document = Nothing
Set Part2Document = Nothing

MsgBox "Done"

End Sub

 

[chikaboom]

Không có cao nhân nào giúp mình trong ý tưởng này hết sao