✔ Drucker wechslen in Excelanwendung

[rtenger]

Guten Tag

Ich öffne in meiner vb.net Anwendung ein Excel-Dok und möchte ein Worksheet ausdrucken, aber vorher den Drucker wechseln auf "Adobe PDF".
Hier der Programmcode Printerwechsel:


PrivateSub PrintWorksheetOnPDF()
Dim dExcelObjektAdress AsObject

'Open Excel-Dok Adressen
'***********************
dExcelObjektAdress = CreateObject("Excel.Application")
dExcelObjektAdress.Visible = True
dExcelObjektAdress.Workbooks.Open(CPathAdressenFile)

'Print auf Adobe PDF
dExcelObjektAdress.Worksheets(1).PrintOut()

'Excel speichern und schliessen
dExcelObjektAdress.ActiveWorkbook.Close(SAVECHANGES:=False)
dExcelObjektAdress.quit()
dExcelObjektAdress = Nothing
EndSub

Besten Dank für Eure Hilfe

Roland Tenger

 

[DrSoong]

Bitte die Frage im .NET-Unterforum stellen, .NET unterscheidet sich von den alten VB-Versionen (bis VB6) doch etwas. Daher gibts für alle .NET-Sprachen ein eigenes Unterforum.

EDIT: Hab was für VB6 gefunden, wie gesagt würd ich aber nochmal im .NET-Unterforum nachfragen.


Der Doc!