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:
661		 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

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.

 

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:



  • 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