title image


Smiley Re: "Artfremde" Dateien zusammen mit dem Bericht ausdrucken
Word- oder Excel-Dokumente kannst du per Automation ausdrucken:





Public Function WordDrucken(FName As String)

Dim WordObj As New Word.Application

With WordObj

.Documents.Open FileName:=FName, ReadOnly:=True

.PrintOut Background:=False

.Quit

End With

End Function



Public Function ExcelDrucken(FName As String)

Dim ExcelObj As New Excel.Application

With ExcelObj

.Workbooks.Open FileName:=FName

.ActiveWorkbook.PrintOut

.Quit

End With

End Function



Das geht mit anderen Anwendungen ähnlich - ohne dass ich jetzt ein konkretes Acrobat- oder AutoCAD-Beispiel hätte....


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: