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, 9269 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 ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

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

Frage von lupi1989 zum Thema VB for Applications ...

Drucker und Scanner
gelöst PCL-Drucker drucken nur Hieroglyphen (5)

Frage von diwaffm zum Thema Drucker und Scanner ...

Windows Server
Drucken via RDP, Papier kommt aus falschem Schacht

Frage von torcolato zum Thema Windows Server ...

Outlook & Mail
Fehlermeldung beim schließen von Outlook 2016 auf Terminalserver (7)

Frage von Tommy1983 zum Thema Outlook & Mail ...

Heiß diskutierte Inhalte
Router & Routing
gelöst Ipv4 mieten (22)

Frage von homermg zum Thema Router & Routing ...

Exchange Server
gelöst Exchange 2010 Berechtigungen wiederherstellen (20)

Frage von semperf1delis zum Thema Exchange Server ...

Windows Server
DHCP Server switchen (20)

Frage von M.Marz zum Thema Windows Server ...

Hardware
gelöst Negative Erfahrungen LAN-Karten (19)

Frage von MegaGiga zum Thema Hardware ...