|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Fehlermeldung bei Druck unterdrücken |
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 |
|
|
|
01.02.2008 14:35:44 |
Tom |
|
|
Von:
Tom |
Datum:
31.01.2008 14:24:18 |
Views:
3033 |
Rating:
|
Antwort:
|
Thema:
Fehlermeldung bei Druck unterdrücken |
Hallo,
Ich habe folgendes Problem:
Ein automatisierter Dienst auf einem Server soll ein Worddokument aus einer Datenbank lesen, und per Druckaufruf an einen PDF Konverter in ein PDF umgewandelt werden.
Leider ist es so, das einige der Dokumente ungültige Seitenränder haben. Das hat zur Folge, dass auf dem Server Word gestartet wird, der Druckvorgang beginnt und dann die Meldung "Seitenränder ausserhalb des bedruckbaren Bereichs, Fortsetzen Ja/Nein" erscheint. Serverseitig kann aber natürlich niemand diese Meldung wegklicken, die Anwendung steht.
Aufgrund meiner Recherche hab ich mir das folgende zusammengebastelt und in normal.dot, Microsoft Word Objects, ThisDocument hinterlegt (es soll ja für ALLE Dokumente gelten).
Public WithEvents appWord As Word.Application
Dim savEnvAlert As WdAlertLevel
Dim savEnvBackground As Boolean
Private Sub appWord_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
Dim intResponse As Integer
savEnvAlert = Application.DisplayAlerts
savEnvBackground = Options.PrintBackground
Application.DisplayAlerts = wdAlertsNone
Options.PrintBackground = False
Cancel = False
End Sub
Private Sub appWord_DocumentAfterPrint()
Application.DisplayAlerts = savEnvAlert
Options.PrintBackground = savEnvBackground
End Sub
Leider funktioniert es nicht, die Anwendung gelangt weder in das eine noch in das andere Event.
Ich sags gleich dazu, ich habe von VBA Null Ahnung, ich entwickle in C#/ASPX.
Wäre für jede Hilfe dankbar!!
Schöne 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
|
Fehlermeldung bei Druck unterdrücken |
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 |
|
|
|
01.02.2008 14:35:44 |
Tom |
|
|