Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
31.01.2008 14:24:18 |
Tom |
|
|
|
31.01.2008 15:56:30 |
Holger |
|
|
|
31.01.2008 16:42:17 |
Tom |
|
|
|
31.01.2008 19:43:38 |
Holger |
|
|
|
01.02.2008 11:33:13 |
Tom |
|
|
|
01.02.2008 12:00:17 |
Holger |
|
|
|
01.02.2008 12:23:31 |
Tom |
|
|
Aw:Aw:Aw:Aw:Aw:Fehlermeldung bei Druck unterdrücke |
01.02.2008 14:35:44 |
Tom |
|
|
Von:
Tom |
Datum:
01.02.2008 14:35:44 |
Views:
2009 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Aw:Fehlermeldung bei Druck unterdrücke |
Ich hab die Lösung gefunden :-)
Hier der Übersicht halber der Code, wenn noch jemand danach sucht:
Im meinem Klassenmodul "PrintControl" in normal.dot:
---
' initialisiere das Anwendungsobjekt(?)
Public WithEvents App As Word.Application
' vor dem Druck
Sub App_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
' setze gewünschte Einstellungen
App.DisplayAlerts = wdAlertsNone
App.PrintOut Background:=False
' Druck soll nicht gecancelled werden
Cancel = False
End Sub
---
In meinem Modul "NewMacros" in normal.dot:
---
' Instanz meiner Klasse erzeugen
Dim myPrintControl As New PrintControl
' Zuweisen des Event Handlers an das Anwendungsobjekt meiner Klasse
Sub AutoExec()
Set myPrintControl.App = Word.Application
End Sub
---
Den Teil mit AfterPrint hab ich entfernt, da dieses Event nicht erreicht wird - aber für die gewünschte Funktionalität offenbar auch nicht benötigt wird.
Eine kleine Anmerkung noch: der Druck wird durchgeführt, noch bevor der Druckdialog erscheint. Da in meinem Fall Drucke sowieso nur automatisch angesteuert werden und nicht über den Dialog, habe ich für dahingehend keine weitere Lösung gesucht.
Grüsse
Tom |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
31.01.2008 14:24:18 |
Tom |
|
|
|
31.01.2008 15:56:30 |
Holger |
|
|
|
31.01.2008 16:42:17 |
Tom |
|
|
|
31.01.2008 19:43:38 |
Holger |
|
|
|
01.02.2008 11:33:13 |
Tom |
|
|
|
01.02.2008 12:00:17 |
Holger |
|
|
|
01.02.2008 12:23:31 |
Tom |
|
|
Aw:Aw:Aw:Aw:Aw:Fehlermeldung bei Druck unterdrücke |
01.02.2008 14:35:44 |
Tom |
|
|