Codeerweiterung
25.01.2017 19:17:38
Guesa
Habe folgenden Code zur PDF-Speicherung hier gefunden und läuft soweit auch gut.
Folgendes Problem hat sich jetzt aber herausgestellt. Einige Anwender sind stark Sehbehindert, deshalb habe ich gewisse Zellen mit verschiedenen Hintergrundfarben gekennzeichnet damit die Eingabefelder besser zu sehen sind. Wenn das Blatt abspeichert wird dürfen diese Farbzellen nicht zu sehen sein. Folgenden Tip, in der Seiteneinstellung unter Blatt die Seite auf Schwarz/Weiß zu stellen funktioniert bei mir unter 2007 aber auf meinem Arbeitsrechner(2010) ist zwar die Hintergrundfarbe nicht mehr zu sehen, aber dafür ist Text (meist Formeln) die ich auf Text weiß gestellt habe zu sehen. Nun meine Frage: Kann man den Code so umstellen das in der PDF-Datei weder die Hintergrundfarbe noch der auf weiß gestellte Text zu sehen ist. Wäre klasse wenn mir jemand dabei helfen könnte.
Gruß, Guesa
Sub Main()
ActiveSheet.Unprotect Password:="1"
Dim strTMP As String
strTMP = ThisWorkbook.Worksheets("Abokündigung").Range("B1").Text
With ThisWorkbook.Worksheets("Abokündigung")
strTMP = strTMP & .Range("H1").Value & "_" & .Range("J1").Value
.ExportAsFixedFormat 0, strTMP, From:=1, To:=1
End With
ActiveSheet.Protect Password:="1"
'Call Loeschen
End Sub