...
obWord.Documents.Open strCurrPatch
' Word
obWord.WindowState = 1
'obWindow.Visible = True
obWord.Visible = True
obWord.Activate
strCurrPatch = DLookup("strCurrPatch", "tblProject") & "\PDF\"
MyPDFCreator 1, strCurrPatch, ""
Const wdPrintAllDocument = 0
Const wdPrintDocumentContent = 0
Const wdPrintAllPages = 0
cPrinter = obWord.ActivePrinter
obWord.ActivePrinter = "PDF Creator"
obWord.Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
obWord.ActivePrinter = cPrinter
Set obWord = Nothing
Set obWindow = Nothing
DoEvents
MyPDFCreator 0, "", ""
...
Function MyPDFCreator(UseAutosave As Integer, AutosaveDirectory As String, AutosaveFilename As String)
' PDF Creator
Const PatchUseAutosave = "HKEY_CURRENT_USER\Software\PDFCreator\Program\UseAutosave"
Const PatchAutosaveDirectory = "HKEY_CURRENT_USER\Software\PDFCreator\Program\AutosaveDirectory"
Const PatchAutosaveFilename = "HKEY_CURRENT_USER\Software\PDFCreator\Program\AutosaveFilename"
Dim MyReg As Object
Set MyReg = CreateObject("WScript.Shell")
MyReg.RegWrite PatchUseAutosave, UseAutosave, "REG_SZ"
MyReg.RegWrite PatchAutosaveDirectory, AutosaveDirectory, "REG_SZ"
MyReg.RegWrite PatchAutosaveFilename, AutosaveFilename, "REG_SZ"
Set MyReg = Nothing
End Function
|
