Disable Collate in powerpoint Print dialog i Powerpoint

prøv med:
ActivePresentation.PrintOptions.Collate = msoFalse

Hi Mads,
Hvor skal man sætte komandoen ind, så flue benet er fjernet når der vælges udkriv?
Er det muligt som i word, at kalde print dialog boksen og herefter indsætte ActivePresentation.PrintOptions.Collate = msoFalse.
I word bruges Application.Dialogs(wdDialogFilePrint).Show, hvordan gør man i Powerpoint?

Undskyld de mange spørgsmål, men jeg ved ikke det vilde om vb/ vba.

Det er lidt mere tricky. Koden skal enten lægges på en knap eller i en macro. De bliver jo ikke kørt helt automatisk...

Der er vist et alternativ: Man kan godt fange events på application objectet - men det er i den lidt mere langhårede ende...

Jeg prøvede at ligge koden ind i en makro, og den virker fint.
Hver gang jeg kører den fjernes flue benet.
Er det muligt at gemme koden i en skabelon, så når man starter en ny presentation, med denne skabelon køres koden fra skabelonen, og flue benet i collate fjernes.
Word har det på dokument niveu, så hvis man laver et nyt dokument ud fra en skabelon med "Private Sub Document_New()" vil det blive kørt

Er det muligt som i word, at kalde print dialog boksen enten via macro eller knap.

Mja - d.v.s., at du kan printe.. (Uden om dialogboksen)..

ActivePresentation.PrintOut

Og hvis du inden har sat printoptions vil det være ok!

Problemmet er hvis du bruger ActivePresentation.PrintOut er man også nødt
til at forud bestemme antalkopier, og andre udskrift optioner.
Hvis man derimod kan kalde print dialog boksen, med optionen ActivePresentation.PrintOptions.Collate = msoFalse, kan man indstille alt andet.

Er det virkeligt ikke muligt at kalde print dialog boksen?

Jeg har kigget objectmodellen igennem - og jeg kan ikke finde det!

Alternativt kunne du jo lave en knap der kalder din eget print dialog. (Lav en formular hvor du kan vælge antal kopier m.v.) og så printOut.

Kunne man føle på om print dialog objectet bliver åbnet, og hvis ja kører ActivePresentation.PrintOptions.Collate = msoFalse, eller en makro med send key, så collate bliver slået fra.

En macro med sendkey ville virke. Så kan du bruge printoptions.collate=msoFalse og derefter kalde ALT+F o.s.v. Skal du have et eksempel ?

Ja tak, det ville være fint.

Jeg har lige prøvet at oprette en knap der kalder denne makro,

Sub Udskriv()
ActivePresentation.PrintOptions.Collate = msoFalse
SendKeys "^{p}", True
End Sub

Hvor skriver man egentlig makroen ind, så den bliver tilgængelig for alle præsentationer?

Det ved jeg faktisk ikke ;O)

Fint nok Mads,
Du har været mig til stor hjælp, det er jo altid rart at kunne tale med nogen når man har et problem, så send mig lige er svar så skal du få dine point.

svar