Undertryk built-in dialog

Opret en makro, der udskriver og accepterer den nævnte dialogboks.
Knyt makroen til en knap, der placeres i værktøjslinien i stedet for den sædvanlige Udskiv-knap.

Jeg har lige testet det. Når jeg skriver

Application.DisplayAlerts = wdAlertsNone

kommer der ingen dialogboks

Har du fået det til at virke?

rvm Jeg fik ikke tid til at se på det igår, men hvor sætter du koden ind? Det er den kode jeg allerede har prøvet, men ikke fået til at virke, måske placerer jeg den forkert. Har sat den i This document New

Prøv at sende din skabelon til mig, så kikker jeg på det*S* rvejemad@csc.com

OK - ThisDocument må kun bruges til kode, der skal køre på hændelser såsom Open, Close og New.

Det du skal gøre er at oprette et helt nyt modul og placere din kode deri. Så skulle den virke (skriver jeg uden at have set den *S*).

Du kunne eventuelt vise din kode her på eksperten.dk - det kan jo være der er noget andet galt *S*

Indsæt følgende kode i et almindeligt modul (ikke ThisDocument), så skulle den være der (du må ikke ændre på makronavnene, da der er forudbestemte af Word):

Sub FilePrint()
'
' FilePrint Makro
' Makro oprettet 27-11-2003 af Richardt Veje Madsen
'

Application.Assistant.AssistWithAlerts = False
Application.DisplayAlerts = wdAlertsNone

Dialogs(wdDialogFilePrint).Show
   
Application.Assistant.AssistWithAlerts = True
Application.DisplayAlerts = wdAlertsAll
   
   

End Sub
Sub FilePrintDefault()
'
' FilePrintDefault Makro
' Udskriver det aktive dokument med de nuværende indstillinger

Application.Assistant.AssistWithAlerts = False
Application.DisplayAlerts = wdAlertsNone

ActiveDocument.PrintOut

Application.Assistant.AssistWithAlerts = True
Application.DisplayAlerts = wdAlertsAll

End Sub

YES det virker, men der må være noget jeg ikke er helt klar over, kan jeg se de forudbestemte makronavne et sted?

Her er et link *S*

http://www.mvps.org/word/FAQs/MacrosVBA/InterceptSavePrint.htm