mediengestalter.info
FAQ :: Mitgliederliste :: MGi Team

Willkommen auf dem Portal für Mediengestalter

Aktuelles Datum und Uhrzeit: Fr 10.02.2012 05:07 Benutzername: Passwort: Auto-Login

Thema: [Word] Grafik nicht mitdrucken vom 08.12.2006

Neues Thema eröffnen   Neue Antwort erstellen MGi Foren-Übersicht -> Hard- und Software -> [Word] Grafik nicht mitdrucken
Autor Nachricht
Freddi
Threadersteller

Dabei seit: 20.07.2006
Ort: Freiburg
Alter: -
Geschlecht: Männlich
Verfasst Fr 08.12.2006 11:45
Titel

[Word] Grafik nicht mitdrucken

Antworten mit Zitat Zum Seitenanfang

Hi.

ich habe ein Problem:
Word

Ich habe noch ein Problem:
Wie kann ich es bewerkstelligen, dass Word bestimmte Grafiken nicht mitdruckt. Sinn der Sache ist es, vorgedrucktes Briefpapier (mit Logo) für Briefe zu verwenden, man soll aber trotzdem das Logo in der Wordvorlage sehen.

Danke!
Grüße, Freddi
  View user's profile Private Nachricht senden Website dieses Benutzers besuchen
 
Stephan_911

Dabei seit: 01.09.2005
Ort: Renningen
Alter: 32
Geschlecht: Männlich
Verfasst Fr 08.12.2006 14:15
Titel

Antworten mit Zitat Zum Seitenanfang

Hi Freddi.

Ich hab das selbe gehabt mit unseren Geschäftsbriefen, die auf vorgedruckte Briefbögen gedruckt werden.

Zu Beginn hab ichs im Menü ausgeschaltet: Extras -> Optionen -> (Karteikarte) Drucken -> Haken vor Zeichnungsobjekte ausschalten.

Das Dumme ist, dass dann in allen anderen Dokumenten auch keine Zeichnungsobjekte mehr gedruckt werden.
Habs dann über VBA gelöst:

Folgenden Code einfach ins entsprechende Vorlagen-Dokument als Makro reinkopieren, dann das Dokument mal drucken und Bescheid geben, obs das war. Grins

Code:
 
Sub DateiDrucken()

Dim savset1 As Boolean
Dim savset2 As Boolean
Dim savset3 As Boolean

    savset1 = Options.UpdateFieldsAtPrint
    savset2 = Options.PrintDrawingObjects
    savset3 = Options.PrintDraft

    Options.UpdateFieldsAtPrint = True
    Options.PrintDrawingObjects = False
    Options.PrintDraft = True

    Dialogs(wdDialogFilePrint).Show

    Options.UpdateFieldsAtPrint = savset1
    Options.PrintDrawingObjects = savset2
    Options.PrintDraft = savset3

End Sub

Sub DateiDruckenStandard()

Dim savset1 As Boolean
Dim savset2 As Boolean
Dim savset3 As Boolean

    savset1 = Options.UpdateFieldsAtPrint
    savset2 = Options.PrintDrawingObjects
    savset3 = Options.PrintDraft

    Options.UpdateFieldsAtPrint = True
    Options.PrintDrawingObjects = False
    Options.PrintDraft = True

    ActiveDocument.PrintOut

    Options.UpdateFieldsAtPrint = savset1
    Options.PrintDrawingObjects = savset2
    Options.PrintDraft = savset3

End Sub



Allerdings werden durch diesen Code ALLE Grafiken ausgeblendet. Um gezielt einzelne Grafiken auszuschalten, muss man den (dokumentinternen) Grafiknamen wissen. Dann kann man das ähnlich verwenden:

- Variable definieren
- Objekt in Variable laden
- Objekt löschen
- Document.printout
- Objekt wieder aus Variable laden

So zumindest der theoretische Ablauf. Ist schon ein bisschen her, dass ich das Ganze geschrieben hab. Hoffe das funktioniert oder ich konnt dir ne Richtung geben. *zwinker*

Grüßle
Stephan
  View user's profile Private Nachricht senden
Freddi
Threadersteller

Dabei seit: 20.07.2006
Ort: Freiburg
Alter: -
Geschlecht: Männlich
Verfasst Fr 08.12.2006 15:58
Titel

Antworten mit Zitat Zum Seitenanfang

Hhhmm...VSB kann ich leider nicht und ich bräuchte das Ganze nur für eine bestimmte Grafik, nämlich das Logo ... *Schnief*

Ich dachte ursprünglich, dass es eine Möglichkeit gibt eine Grafik irgendwie als "Infobereich" einzustufen, der nicht mitgedruckt wird ...

ICH HASSE WORD!!!!!
  View user's profile Private Nachricht senden Website dieses Benutzers besuchen
a7

Dabei seit: 22.02.2005
Ort: -
Alter: -
Geschlecht: -
Verfasst Fr 18.07.2008 10:57
Titel

Antworten mit Zitat Zum Seitenanfang

thx funktioniert
  View user's profile Private Nachricht senden
TK1974

Dabei seit: 16.03.2010
Ort: -
Alter: -
Geschlecht: -
Verfasst Di 16.03.2010 10:18
Titel

Antworten mit Zitat Zum Seitenanfang

Wie ist den das Script abzuändern, wenn man nur das Logo nicht drucken möchte, alle anderen Grafiken aber drucken möchte ?
  View user's profile Private Nachricht senden
 
Ähnliche Themen Grafik austauschen in Word?
Grafik im MS Word könnte nicht nachbearbeiten mit paintshop
[Word] word Opentype ?
Word in pdf
Word->Formeleditor
Word Serienbrief
Neues Thema eröffnen   Neue Antwort erstellen
MGi Foren-Übersicht -> Hard- und Software


Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst an Umfragen in diesem Forum nicht mitmachen.