Private Sub Command1_Click()
Dim wd As New Word.Application
Set wd = New Word.Application
wd.Documents.Open FileName:="""c:\sample.doc""", _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto
wd.Documents.Application.ActivePrinter = "PDF995"
wd.Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
Collate:=False, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _ PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub
http://www.pdf995.com/download.html
eine profilösung (35$)
http://drn.digitalriver.com/product.php%5Bid%5D61066%5Bcid%5D228%5BSiteID%5Ddriverguide