Liebe Wordler,
in Word ist beim Drucken die Seitenbereichs-Voreinstellung immer „Alles“.
Es gibt aber bei mir Dokumente, bei denen immer nur die „Aktuelle Seite“ gedruckt werden soll.
Deshalb meine Frage, ob sich das grundsätzlich in Word ändern lässt, und wenn ja, wie und wo? Und, ob das auch nur bei einem bestimmten Dokument eingestellt werden kann? Für alle anderen gilt weiterhin „Alles“.
Vielen Dank für eine Antwort.
Liebe Grüße
Jorge
Hallo,
Datei Drucken und dann Haekchen setzen oder SeitenNummer
gilt meines Wissens immer nur fuer den einen Ausdruck.
Gruss Helmut
Lieber Jorge
Schreibe das kleine Makro in dein NORMAL.DOT:
Sub AktuelleSeite()
Application.PrintOut Range:=wdPrintCurrentPage
End Sub
Dann baust du in eine der normalerweise aktiven Menuleisten ein Schaltsymbol ein.
Jetzt kannst du das Makro aus jedem Word-Dokument aufrufen.
Machs gut
Erich
Lieber Erich,
ich bin gerade in der „Tabellenkalkulation“ gerupft worden, weil ich das „Problem“ nicht ausführlich genug beschrieben habe. Inzwischen liegt die Peitsche neben mir, die ersten Striemen verheilen ganz gut…
Mea culpa!
Also: die Datei und ihre Verknüpfung liegen so, dass sie von verschiedenen Ärzten auf ihrem PC geöffnet und „geändert“ werden können. Die Datei wird in einem anderen Ordner gespeichert. Auf diesen Ordner und die Dateien haben die Kollegen der Pflege auf ihrem PC „Leserecht“. Sie in erster Linie, aber auch die Ärzte, drucken diese Datei. Die Datei wird ständig ergänzt, hat 2 und mehr Seiten und interessant für den Ausdruck ist immer nur die letzte Seite. Deswegen meine Anfrage (Papier, Ressourcen, CO2 sparen usw.).
In Word bin ich wirklich der Laie. Ich schreibe, formatiere und drucke.
Deshalb meine Frage:
Wenn ich auf meinem Heim-PC die NORMAL.DOT öffne, erhalte ich ein Word-Dokument. Hier soll ich deinen Befehl reinschreiben?
Wenn ich das bei mir mache, werde ich gefragt, wo ich das speichern soll. *stirnrunzelndfragendgucken*
Dann".dot" angewählt und dort gespeichert.
Muss ich das dann auf jedem PC machen, der diese Datei benutzt? Oder kann ich das irgendwie zentral machen?
Dann baust du in eine der normalerweise aktiven Menuleisten
ein Schaltsymbol ein.
Würde ich sofort machen, wenn ich wüsste, wie? Kannst du mir das genauer erklären? Über rechte Maus in der Menüleiste - Anpassen, habe ichs versucht, aber nichts gefunden. Rechner neu starten?
Und zum Schluss die Frage, ob es einen schönen Link zu einer Seite gibt, die mich über die Geheimnisse der NORMAL.DOT aufklärt. Scheint doch ziemlich wichtig für WORD zu sein.
Kannst du mir noch mal helfen?
Liebe Grüße
Jorge
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Jorge,
Schreibe das kleine Makro in dein NORMAL.DOT:
Sub AktuelleSeite()
Application.PrintOut Range:=wdPrintCurrentPage
End SubDann baust du in eine der normalerweise aktiven Menuleisten
ein Schaltsymbol ein.
Jetzt kannst du das Makro aus jedem Word-Dokument aufrufen.
ich bin gerade in der „Tabellenkalkulation“ gerupft worden,
weil ich das „Problem“ nicht ausführlich genug beschrieben
habe. Inzwischen liegt die Peitsche neben mir, die ersten
Striemen verheilen ganz gut…
*lach* ja, wir sind schon böse )
Dann baust du in eine der normalerweise aktiven Menuleisten
ein Schaltsymbol ein.Würde ich sofort machen, wenn ich wüsste, wie? Kannst du mir
das genauer erklären? Über rechte Maus in der Menüleiste -
Anpassen, habe ichs versucht, aber nichts gefunden. Rechner
neu starten?
Nachfolgend eine manuelle Anleitung. Mir rechter maustaste und Anpassen lagste schon richtig.
Und zum Schluss die Frage, ob es einen schönen Link zu einer
Seite gibt, die mich über die Geheimnisse der NORMAL.DOT
aufklärt. Scheint doch ziemlich wichtig für WORD zu sein.
Hätte ich auch gern, den Link.
Und zu deiner Frage ob das zentral geht. Du könntest das makrosymbol in deiner Normal.dot integrieren, dann diese Normal.dot an die Kolleginnen verscicken und sie sollen die Normal.dot ins richtige Verzeichnis reinkopieren.
Naja, da könnte vieles schiefgehen, falsches Verzeichnis usw.
Weiterhin zerschießt du damit alles was die Leute schon an ihren Normal.dots geändert hatten.
May be, es gibt noch Pfadprobleme,wenn Pfade in der Normal.dot stehen.
Sicherer ist, du schickst an alle eine Word-Datei, die sie nur einmalig mit aktivierten Makros öffnen müssen.
Und der Code in Document_Open schreibt das Makro in die örtliche Normal.dot, legt das Symbol an usw.
Gleiches Vorgehen bietet sich auch für dein „Speichern unter“ Problem in Excel an.
Normal.dot und Excel.xlb haben ähnliche Funktionalität, wobei ich bei beiden nicht exakt weiß was da eigentlich genau drinsteht.
Gruß
Reinhard
Symbol für ein Makro anlegen:
In Normal.dot unter NewMacros ein beliebiges Makro mit Namen z.B. „Sub Jorge()“ anlegen, zum Testen am besten irgendwas mit Msgbox.
Vb-Editor schließen.
Rechtsklick oben in die Zeile/Leiste, wo Datei, Bearbeiten, Ansicht, … steht.
„Anpassen auswählen“
Befehle—Makros.
Das Symbol vor „Normal.NewMacros.Jorge“ anklicken und in die Leiste oben ziehen.
Das Fensterchen offen lassen ! dann oben Rechtsklick auf das eingefügte Symbol bzw. den Text daneben.
Dann je nach Wunsch auswählen/bearbeiten/ändern:
Name
Schaltflächenbild bearbeiten/ändern
Standard (=nur Symbol, ohne Text wird angezeigt.)
usw.
Wie man manuell ein Symbol für ein eigenenes Makro in eine der anderen Symbolleisten einbaut weiß ich nicht.
Wie das mittels Vba geht kann ich raustesten, melde dich wenn du das brauchst.
Lieber Jorge
Also: die Datei und ihre Verknüpfung liegen so, dass sie von
verschiedenen Ärzten auf ihrem PC geöffnet und „geändert“
werden können. Die Datei wird in einem anderen Ordner
gespeichert.
Was heisst „anderer Ordner“? Ist die Datei auf jedem PC oder wo ?
Auf diesen Ordner und die Dateien haben die
Kollegen der Pflege auf ihrem PC „Leserecht“. Sie in erster
Linie, aber auch die Ärzte, drucken diese Datei. Die Datei
wird ständig ergänzt, hat 2 und mehr Seiten und interessant
für den Ausdruck ist immer nur die letzte Seite. Deswegen
meine Anfrage (Papier, Ressourcen, CO2 sparen usw.).
Jetzt sind wir der Sache langsam auf der Spur! Da gibt es jedoch noch ein paar Fragen:
Wo ist die Ursprungsdatei? Wird sie zentral erstellt und dann Kopien versandt? Wer erstellt sie?
Ich stelle mir nun vor, die Makros in dieser Datei abzulegen, dann gehen sie immer mit den Kopien mit. Sobald eine solche Datei geöffnet wird, erscheint dann auch ein „Druck letzte Seite“-Symbol in der Symbolleiste. (Letzte Seite oder aktuelle Seite?)
Das Ganze geht natürlich nur, wenn auf den PCs Makros zugelassen sind. Oft werden diese ja nicht erlaubt. Die Einstellung müsste mindestens bei allen so sein, dass das Programm anfragt, ob Makros erlaubt sind; dann mit JA antworten.
Bitte diese Fragen nochmals möglichst genau beantworten, dann werde ich dir eine Lösung annbieten können.
gruss
Erich
Lieber Jorge
Also: die Datei und ihre Verknüpfung liegen so, dass sie von
verschiedenen Ärzten auf ihrem PC geöffnet und „geändert“
werden können. Die Datei wird in einem anderen Ordner
gespeichert.Was heisst „anderer Ordner“? Ist die Datei auf jedem PC oder
wo ?
Die Datei liegt auf einem Server unter G/Krankenhaus/ Allgemeinpsychiatrie/Station 25
ebenso die Verknüpfung, die von den Ärzten auf ihr Desktop gezogen wird. Sie wird unter G/ … /Wochenprotokolle/„Name des Arztes“ gespeichert.
Die Stationen ziehen sich die Verknüpfung des Ordners auf den Desktop, öffnen die Datei und drucken sie aus.
Auf diesen Ordner und die Dateien haben die
Kollegen der Pflege auf ihrem PC „Leserecht“. Sie in erster
Linie, aber auch die Ärzte, drucken diese Datei. Die Datei
wird ständig ergänzt, hat 2 und mehr Seiten und interessant
für den Ausdruck ist immer nur die letzte Seite. Deswegen
meine Anfrage (Papier, Ressourcen, CO2 sparen usw.).Jetzt sind wir der Sache langsam auf der Spur! Da gibt es
jedoch noch ein paar Fragen:
Wo ist die Ursprungsdatei? Wird sie zentral erstellt und dann
Kopien versandt? Wer erstellt sie?
Ich erstelle die Vorlage, die Ärzte tragen auf der geöffneten Verknüpfung ein und speichern mit „Speichern unter“.
Ich stelle mir nun vor, die Makros in dieser Datei abzulegen,
dann gehen sie immer mit den Kopien mit. Sobald eine solche
Datei geöffnet wird, erscheint dann auch ein „Druck letzte
Seite“-Symbol in der Symbolleiste. (Letzte Seite oder aktuelle
Seite?)
Letzte Seite wäre natürlich besser, erspart den Kollegen, den Cursor in die letzte Seite zu setzen.
Das Ganze geht natürlich nur, wenn auf den PCs Makros
zugelassen sind. Oft werden diese ja nicht erlaubt. Die
Einstellung müsste mindestens bei allen so sein, dass das
Programm anfragt, ob Makros erlaubt sind; dann mit JA
antworten.
Das richte ich dann so ein.
Bitte diese Fragen nochmals möglichst genau beantworten, dann
werde ich dir eine Lösung annbieten können.
gruss
Erich
War das genau genug?
Liebe Grüße
Jorge
Lieber Reinhard,
ich möchte dir nicht weh tun, aber das ist mir zu hoch. Eigentlich wollte ich ja nur wissen, ob man die Voreinstellung in Drucken ändern kann. Und jetzt das…
Ich kann jetzt nur noch meine Einladung bezüglich Konstanz anbieten für deine Bemühungen…)
Aber ich gestehe, ich bin ein bisschen müde; meine 3 Süßen haben mich heute ziemlich gefordert. Ich gucks mir morgen noch mal ganz genau an.
Liebe Grüße
Jorge
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Lieber Jorge
Wir machen Fortschritte!
Die Datei liegt auf einem Server unter G/Krankenhaus/
Allgemeinpsychiatrie/Station 25
ebenso die Verknüpfung, die von den Ärzten auf ihr Desktop
gezogen wird. Sie wird unter G/ … /Wochenprotokolle/„Name
des Arztes“ gespeichert.
Die Stationen ziehen sich die Verknüpfung des Ordners auf den
Desktop, öffnen die Datei und drucken sie aus.
Also müssen wir nur im NORMAL.DOT des Servers Makros einbauen; das vereinfacht die Sache.
Letzte Seite wäre natürlich besser, erspart den Kollegen, den
Cursor in die letzte Seite zu setzen.
Machen wir.
Ich werde dir in Kürze meinen Vorschlag zeigen; bitte etwas Geduld!
Erich
ich möchte dir nicht weh tun, aber das ist mir zu hoch.
Eigentlich wollte ich ja nur wissen, ob man die Voreinstellung
in Drucken ändern kann. Und jetzt das…
Hallo Jorge,
okay, lasse wir das manuelle weg und setzen das Symbol gleich per Vba.
Und, eine Voreinstellung, nur die aktuelle Seite gibt es anscheinend nicht von Word aus, also per Makro.
Im Vb-Editor, in „ThisDocument“ deiner Datei:
Option Explicit
’
Private Sub Document_Open()
Call NeuesSymbol
End Sub
’
Private Sub Document_Close()
On Error Resume Next
Application.CommandBars(„Standard“).Controls(„AktuelleSeiteDrucken“).Delete
On Error GoTo 0
End Sub
Wenn noch nicht vorhanden, über Einfügen—Modul das Modul1 anlegen.
In Modul1:
Option Explicit
'
Sub NeuesSymbol()
Dim cmb As CommandBar, cmbb As CommandBarButton
Set cmb = Application.CommandBars("Standard")
Set cmbb = cmb.Controls.Add(Type:=msoControlButton, Temporary:=True)
With cmbb
.Caption = "AktuelleSeiteDrucken"
.BeginGroup = True
.FaceId = 682
.OnAction = "Jorge"
End With
Set cmb = Nothing
Set cmbb = Nothing
End Sub
'
Sub Jorge()
If ThisDocument.Name "Hier muß du den Namen der Datei eintragen, zb: xyz.doc" Then Exit Sub
'MsgBox ThisDocument.Name
'MsgBox "Sei gegrüßt, ich bin " & Application.UserName
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= \_
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, \_
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, \_
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub
'
Sub ruecksetzung()
' Symbolleiste "Standard" wird auf Auslieferungsszustand zurückgesetzt.
Application.CommandBars("Standard").Reset
End Sub
Die „If…“ Zeile mußt du noch anpassen, also den Dateinamen einsetzen, dann gillt das Makro nur für diese eine Datei.
Gruß
Reinhard
Lieber Jorge
Inzwischen hat dir Reinhard eine vollständige Lösung für die einzelnen PC geschickt.
Wenn die Datei auf einem zentralen PC liegt und aus dem Netz von verschiedenen Anwendern aufgerufen werden soll, entstehen mehr Probleme, als ich anfänglich vermutete.
Der Aufruf und das Ausdrucken (Server und EIN Kunde) funktioniert, aber es entstehen zusätzliche Probleme, da mehrere Personen gleichzeitig auf dieselbe Datei zugreifen können. Da ich damit keine praktische Erfahrung habe - und du wohl auch nicht! - rate ich dir, die Lösung von Reinhard weiter zu verfolgen, bevor wir uns in einem undurchdringlichen Dickicht verlaufen!
Viel Erfolg wünscht dir
Erich
Lieber Reinhard,
nicht, dass du denkst, ich hätte dich vergessen, aber ich komme wegen der Excel-Geschichte im Moment nicht dazu, mich um dein Word-VBA zu kümmern. Aber ich habs mir gespeichert und werde mich bald dran setzen.
Liebe Grüße
Jorge
Lieber Reinhard,
leider gibts 2 Probleme.
Option Explicit
’
Private Sub Document_Open()
Call NeuesSymbol
End Sub
’
Private Sub Document_Close()
On Error Resume Next
Application.CommandBars(„Standard“).Controls(„AktuelleSeiteDrucken“).Delete
On Error GoTo 0
End Sub
und das nach Modul1:
Option Explicit
’
Sub NeuesSymbol()
Dim cmb As CommandBar, cmbb As CommandBarButton
Set cmb = Application.CommandBars(„Standard“)
Set cmbb = cmb.Controls.Add(Type:=msoControlButton, Temporary:=True)
With cmbb
.Caption = „AktuelleSeiteDrucken“
.BeginGroup = True
.FaceId = 682
.OnAction = „Jorge“
End With
Set cmb = Nothing
Set cmbb = Nothing
End Sub
’
Sub Jorge()
If ThisDocument.Name Then Exit Sub
'MsgBox ThisDocument.Name
'MsgBox „Sei gegrüßt, ich bin " & Application.UserName
Application.PrintOut FileName:=“", Range:=wdPrintCurrentPage, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub
’
Sub ruecksetzung()
’ Symbolleiste „Standard“ wird auf Auslieferungsszustand zurückgesetzt.
Application.CommandBars(„Standard“).Reset
End Sub
Meine Datei heißt „Wöchentliche Verlaufsdokumentation.doc“. Habe ich da beim Einfügen was falsch gemacht?
Liebe Grüße an dich und alle anderen.
Jorge
Hallo Jorge,
Versteh ich nicht.
Bei Klick auf das neue Symbol wird der Code der Prozedur Jorge() ausgeführt, da steht/stand nichts drinnen alle Seiten zu drucken.
Es stand drin, nur die gerade aktuelle Seite des Dokuments auszudrucken, ich hatte das verpeilt dass es die jeweils letzte Seite des Dokuments sein soll, Erich half mir beim Verpeilen .
Neue Doc ist hochgeladen unter:
http://www.hostarea.de/server-10/Oktober-9f7470e7a6.xls
ACHTUNG, Hostarea duldet keine DOC Dateien, deshalb habe ich sie unbenannt in eine XLS, vorm Öffnen wieder in .DOC umbenennen.
Ich habe den Code jetzt hier in dieser Doc umgeändert, es wird die letzte vorhandene Seite des Dokuments gedruckt und nur diese, nicht alle.
Anpassen musst du nur den Dateinamen in der Prozedur Jorge().
Und zwar nicht so:
If ThisDocument.Name Then …
sondern so:
If ThisDocument.Name “Wöchentliche Verlaufsdokumentation.doc“ Then …
Getestet auf XL2000.
Code in „ThisDocument“ bleibt gleich,
in Modul1:
***************************************************************************
Option Explicit
’
Sub NeuesSymbol()
Dim cmb As CommandBar, cmbb As CommandBarButton
Set cmb = Application.CommandBars(„Standard“)
Set cmbb = cmb.Controls.Add(Type:=msoControlButton, Temporary:=True)
With cmbb
.Caption = „AktuelleSeiteDrucken“
.BeginGroup = True
.FaceId = 682
.OnAction = „Jorge“
End With
Set cmb = Nothing
Set cmbb = Nothing
End Sub
’
Sub Ruecksetzung()
’ Symbolleiste „Standard“ wird auf Auslieferungsszustand zurückgesetzt.
Application.CommandBars(„Standard“).Reset
End Sub
’
Sub Jorge()
Dim Anzahl As Integer
If ThisDocument.Name „Jorge.doc“ Then Exit Sub
Anzahl = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, pages:=CStr(Anzahl)
End Sub
***************************************************************************
Meine Datei heißt „Wöchentliche Verlaufsdokumentation.doc“. Habe
ich da beim Einfügen was falsch gemacht?
K.A.
Ich habe den Überblick verloren, meinst du jetzt diese Word-Datei mit dem Druckmakro oder die Exceldatei vom Excelproblem, oder beide?
Wie auch immer, ja, ich gehe davon aus dass Makros das lösen können.
Gruß
Reinhard