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 mein Programmcode OHNE 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

http://www.tutorials.de/forum/images...ser_online.gif http://www.tutorials.de/forum/images...reputation.gif vbrep_register("1395050") http://www.tutorials.de/forum/images/buttons/report.gif http://www.tutorials.de/forum/images/misc/progress.gif

Hallo,
also die MSDN sagt, das du beim Aufrufen der Funktion "dExcelObjektAdress.Worksheets(1).PrintOut()" der PrintOut()-Methode den Namen übergeben kannst, also z.B. so:

PrintOut(,,,,"Adobe PDF")

Ich weiß jetzt nicht genau, wie das mit der Parameterübergabe in VB.NET ist und ob du überhaupt alle Parameter ihm übergeben musst. Teste das mal.

Gruss
Konstantin

Hallo Konstantin

Herzlichen Dank für Deine schnelle Antwort und Lösung. Ich habe im MSDN wahrscheinlich zu wenig genau gesucht , ist genau das was ich gesucht habe und es frunktioniert!!

Freundliche Grüsse

Roland Tenger