Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Worddok. per Makro nach drucken schließen

Frage Entwicklung VB for Applications

Mitglied: Hatl

Hatl (Level 1) - Jetzt verbinden

08.06.2007, aktualisiert 11.06.2007, 9553 Aufrufe, 6 Kommentare

Hallo!

Vielleicht kann mir jemand weiterhelfen.
Ich möchte gern ein Worddokument automatisch schließen, nachdem es vom User entweder über Datei -> Drucken oder über den „Druck – Button“ von Word ausgedruckt wurde.
Also mein Problem dabei ist herauszufinden ob das Dokument gedruckt wurde.
Das schließen des Dokumentes würde ja einfach über ActiveDocument.Close gehen.

Hat jemand einen Tipp für mich?

Vielen Dank!

lg
Mitglied: Guenni
08.06.2007 um 20:21 Uhr
@Hatl

Hi,

funktioniert, wenn auch der Druckbefehl
vom Makro ausgeht:

01.
Sub PrintClose() 
02.
    ActiveDocument.PrintOut 
03.
   ActiveDocument.Close 
04.
End Sub
Dann erstellst du in einer Symbolleiste einen Button, weist
diesem das Makro zu. Bei Klick wird gedruckt und geschlossen.

Gruß
Günni
Bitte warten ..
Mitglied: bastla
09.06.2007 um 20:45 Uhr
Hallo Hatl und Günni!

Wenn das Makro "Sub FilePrintDefault()" heißt, wird damit der Klick auf das "Drucken"-Symbol der Standard-Symbolleiste abgefangen - ein eigenes Symbol ist dann gar nicht nötig.

Um den Menübefehl "Datei / Drucken" (bzw Strg-P) selbst abzuwickeln, muss das Makro "Sub FilePrint()" heißen und sinnvoller Weise auch den Standard-Druckdialog aufrufen, also etwa:
01.
Sub FilePrint() 
02.
Ret = Dialogs(wdDialogFilePrint).Show 
03.
If Ret = -1 Then ActiveDocument.Close 'Dialog wurde mit OK beendet, daher sollte gedruckt worden sein 
04.
End Sub
Grüße
bastla
Bitte warten ..
Mitglied: Guenni
10.06.2007 um 18:44 Uhr
@bastla

Hi,

da kann man mal sehen, wie wertvoll es ist, internes über Software
zu wissen.

Ich behelfe mir in solchen Fällen immer damit, dass ich ein Makro
aufzeichnen lasse, und es hinterher anpasse. Deshalb auch mein
bescheidenes Behelf-Makro

Gruß
Günni
Bitte warten ..
Mitglied: bastla
10.06.2007 um 18:51 Uhr
@Günni

da kann man mal sehen, wie wertvoll es ist, internes über Software zu wissen.
"Wissen" ist zu viel gesagt - hatte es vor einiger Zeit im Web gefunden und mich errinnert, dass da was war ...

Grüße
bastla
Bitte warten ..
Mitglied: Hatl
11.06.2007 um 11:09 Uhr
Hallo!

Vielen Dank, ist genau was ich brauche und funktioniert wunderbar!

lg
Bitte warten ..
Mitglied: Hatl
17.08.2011 um 10:09 Uhr
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst Makro auf alle Dateien im Ordner (1)

Frage von mcandyyyyy zum Thema VB for Applications ...

VB for Applications
gelöst ComboBox mit Variabler aus Makro verknüpfen (5)

Frage von Anrion zum Thema VB for Applications ...

VB for Applications
gelöst VBA-Makro verschwindet nach Speichern (5)

Frage von lupi1989 zum Thema VB for Applications ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 im Unternehmen? (28)

Frage von zorlayan zum Thema Windows 10 ...

LAN, WAN, Wireless
Ping u. DNS geht am Rechner nicht mehr (21)

Frage von Kuemmel zum Thema LAN, WAN, Wireless ...

Festplatten, SSD, Raid
Raid 1 2 SSD mit Windows Server 2016 (17)

Frage von jaywee zum Thema Festplatten, SSD, Raid ...