Powerpoint Druckfenster aus Excel heraus öffnen
27.10.2015 13:29:24
Jendrik
ich möchte folgendes machen:
Aus Excel heraus eine Powerpoint datei erstellen, die sich aus verschiedenen PPT-Files zusammensetzt.
Anschließend möchte ich, dass sich von dieser neuen File automatisch das Print-Fenster öffnet und anschließend das SaveAs-Fenster.
Ersteres funktioniert schonmal und sieht im groben(!) so aus:
Private Sub CommandButton1_Click()
Dim pApp As Powerpoint.Application
Dim pPres As Powerpoint.Presentation
Dim pCopy As Powerpoint.Presentation
Dim pSlide As Powerpoint.Slide
Set pApp = New Powerpoint.Application
pApp.Visible = True
Set pPres = pApp.Presentations.Open(ActiveWorkbook.Path & "\" & "PRINT.pptx")
For i=blabla to blabla
Set pCopy = pApp.Presentations.Open(ActiveWorkbook.Path & "\" & (Cells(i, Spalte).Hyperlinks(1). _
_
Address), ReadOnly:=msoTrue, WithWindow:=msoFalse)
pCopy.Slides.Range.Copy 'Kopiert die Folien
pPres.Slides.Paste 'Fügt die Folien in die "Print"-File
pCopy.Close 'schließt die Zwischendatei
Next
End Sub
Nun kommen wir zum Drucken und Speichern Teil. Folgende Situation hab ich jetzt: die Datei PRINT.pptx (pPres)ist offen und soll gedruckt werden.
mit: "pPres.printout" funktioniert das auch, aber es wird sofort gedruckt, ich möchte allerdings erst das DialogFenster offen haben.
mit Application.Dialogs(xlDialogPrint).Show öffnet sich allerdings das Druckfenster von meiner Excel Datei.
Ich dachte es geht vielleicht so "pApp.Dialogs(xlDialogPrint).Show"
Aber auch das funktioniert nicht.
Gibt es eine Möglichkeit das Fenster für die Powerpoint datei zu öffnen?
Vielen Dank im voraus!
Anzeige