Ich beziehe mich auf den vorhandenen Tipp Word/Excel-Dokument drucken. Hier wurde gesagt, dass das Drucken eines Word-Dokumentes mit dem folgenden Quellcode nicht funktioniert, weil , ich zitiere, " ...WinWord eine Meldung bringt, daß gerade ein Dokument gedruckt wird und somit die Anwendung nicht beendet werden kann - es sei denn der Ausdruck soll abgebrochen werden." Dim wApp As New Word.Application With wApp .Documents.Open sFilename .ActiveDocument.PrintOut .Quit End With Set wApp = Nothing Das ist auch korrekt und passiert immer dann, wenn in Word unter "Extras - Optionen - Drucken" der Haken gesetzt ist bei "Drucken im Hintergrund". Wenn man jedoch den Haken entfernt, oder folgenden Quellcode verwendet, wird das Word-Dukument in jedem Fall ausgedruckt: Private Sub Form_Load() On Error GoTo ErrorHandler ' Pfad des Dokuments als Argument aus Befehlszeile übernehmen If Command$ = "" Then MsgBox "Bitte geben Sie einen Dateinamen an. Abbruch!" End Else sFilename = Command() End If Dim wApp As New Word.Application Dim b_PrintBackground As Boolean wApp.Documents.Open sFilename ' Einstellung zu "Drucken im Hintergrund" erfragen b_PrintBackground = wApp.Options.PrintBackground With wApp ' "Drucken im Hintergrund" ausschalten, da sonst der Ausdruck scheitert .Options.PrintBackground = False ' Dokument drucken .ActiveDocument.PrintOut ' Einstellung zu "Drucken im Hintergrund" wieder zurücksetzen .Options.PrintBackground = b_PrintBackground .ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges .Quit (wdDoNotSaveChanges) End With Set wApp = Nothing Exit Sub ErrorHandler: MsgBox Err.Description wApp.Quit Set wApp = Nothing End Sub Dieser Tipp wurde bereits 19.442 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung Neu! sevPopUp 2.0 Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |