PDF-Druck
RainerK
habe hier durch Mithilfe von Franz ein Druckmenu erstellt, mit welchem ich über D1-D2 die Auswahl der Blätter steuere.
Für die ausgewählten Blätter würde ich nun gerne einen Button anlegen, um ein PDF zu speichern.
Grundsätzlich ja kein kein Problem, habe den PDFCreator und das ADDin für Speichern unter (*.pdf).
Hätte dies allerdings vereinfacht und mit meinem Code für "Speichern unter" kombiniert.
'Datei speichern unter ...
Dim sPfad As String
Dim sName As String
Dim sDat As String
sPfad = Range("Pfad").Text & Range("UVZ1").Text & "\"
sName = Range("Dateiname").Text
sDat = Format(Sheets("Inhaltsverzeichnis").Range("M4").Value, "yyyy-mm-dd")
'sZeit = Format(Sheets("Tabelle1").Range("B3").Value, "hh:mm")
sName = Application.GetSaveAsFilename _
(Title:="Speichern unter ...", _
InitialFileName:=sPfad & sName & " - " & sDat & ".xls", _
FileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
Select Case sName
Case False
Exit Sub
Case Else
ThisWorkbook.SaveAs Filename:=sName
End Select
Das Ändern von *.xls in *.pdf bewirkt zwar eine Speicherung als *.pdf, die Datei lässt sich jedoch nicht als PDF öffnen.
Beigefügt die Tabelle, in welcher ich im Modul2 die Aufzeichnungen "Speichern unter" und Druck über PDFCreator habe.
Wie kann ich diese Codes ändern, dass nur die Blätter gespeichert werden, welche in D2 ein "ja" stehen haben?
Geht das überhaupt?
Vielen Dank im Voraus
Rainer
https://www.herber.de/bbs/user/79003.xls