Thema Datum  Von Nutzer Rating
Antwort
18.09.2015 18:08:51 Arman
NotSolved
Blau Je nach Druckart Grafik auslebenden
 26.09.2015 21:05:45 Miramis
NotSolved

Ansicht des Beitrags:
Von:
Miramis		 Datum:
26.09.2015 21:05:45		 Views:
807		 Rating:
     
Antwort:
  Ja
Thema:
Je nach Druckart Grafik auslebenden

Hallo Arman

Versuche zuerst herauszufinden wie Dein PDF-Drucker heisst. Diese Info erhältst Du z.B. mit

?
1
MsgBox Application.ActivePrinter

(Zuerst den PDF Drucker auswählen)

Bei mir heisst er "PDF Creator auf Ne00:". Ersetze nun im folgenden Code "PDF Creator auf Ne00:" durch den Namen, den Du erhalten hast. Im folgenden Code heisst die Grafik "GrafikTest". Ersetze den Namen durch den Namen Deiner Grafik, die Du jeweils ausblenden möchtest.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Drucken()
 
 
If Application.ActivePrinter = "PDFCreator auf Ne00:" Then
    Sheets(1).Pictures("GrafikTest").Visible = True
    Sheets(1).PrintOut
Else
    Sheets(1).Pictures("GrafikTest").Visible = False
    Sheets(1).PrintOut
End If
 
Sheets(1).Pictures("GrafikTest").Visible = True
 
End Sub

Liebe Grüsse

Miramis

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.09.2015 18:08:51 Arman
NotSolved
Blau Je nach Druckart Grafik auslebenden
 26.09.2015 21:05:45 Miramis
NotSolved