Auswahl von Blättern zum Drucken, Fortsetzung

Guten Tag liebe Forumgemeinde.
Dieses Forum hat mir bereits durch die zahlreichen Themen sehr weitergeholfe. Nun muss ich allerdings doch eine Frage stellen.
Es geht um diesen Beitrag:
https://www.herber.de/forum/archiv/868to872/870257_Auswahl_von_Blaettern_zum_drucken_per_liste.html,
und Speziell um diese Datei aus der letzten Antwort:

Die Datei https://www.herber.de/bbs/user/42525.xls wurde aus Datenschutzgründen gelöscht

Nun habe ich das Problem, die Aufgabe, diese Funktion so zu verwenden. Jedoch mit der Änderung, dass der Button zum "Drucken" sich in einem anderen Tabellenblatt befinden soll.
Habe schon verschiedene Kombis ausprobiert, leider ohne Erfolg.
Über Hilfe wäre ich sehr froh.
Mit freundlichen Grüßen
Sebastian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton2_Click() 'Tabellen liste erzeugen Dim Zelle As Range, Blatt As Variant On Error Resume Next 'Falls Name noch nicht festgelegt ist Application.Range("ListeTabellen").ClearContents With Me Set Zelle = .Cells.Find(What:="Liste Tabellen", LookIn:=xlValues, _ Lookat:=xlWhole) For Each Blatt In ActiveWorkbook.Sheets If Blatt.Visible = xlSheetVisible Then Set Zelle = Zelle.Offset(1, 0) Zelle.Value = Blatt.Name End If Next 'Bereich dem Namen neu zuweisen Application.Names.Add Name:="ListeTabellen", _ RefersTo:=.Range(.Cells.Find(What:="Liste Tabellen", _ LookIn:=xlValues, Lookat:=xlWhole).Offset(1, 0), Zelle.Offset(0, 1)) 'Anpaasung 2014-11- _ 27 End With End Sub

Hallo Sebastian,
der Export eines oder einer Gruppe von Blättern in eine PDF-Datei ist kein Problem.
In der vorhandnen Userform wäre dies mit nachfolgenden Makro möglich, das dann einer weiteren Schaltfläche zugeordnet wird.
Der sortierte Export mehrerer einzelner Tabellenblätter in eine PDF-Datei ist nicht ohne weiteres möglich. Hierzu benötigt man einen PDF-Drucker, den man so konfigurieren kann, dass mehrere Druckjobs gesammelt und in einer PDF-Datei ausgegeben werden. z.B. kann das Free PDF.
Alternativ kann man natürlich auch die Tabellenblätter als Einzel-PDF exportieren und dann mit einem Tool in einer PDF-Datei zusammenfassen.
Gruß
Franz

Private Sub CB_PDF_Export_Click()
Dim Blaetter(), j%, i%, wks
Dim varPDF_Name As Variant
j% = 0
Set wks = ActiveSheet
For i = 0 To Me.ListBox_Tabellen.ListCount - 1
If Me.ListBox_Tabellen.Selected(i) = True Then
j = j + 1
ReDim Preserve Blaetter(1 To j)
Blaetter(j) = Me.ListBox_Tabellen.List(i, 0)
End If
Next
If j = 0 Then
MsgBox "Es sind keine Tabellenblätter in der Listbox selektiert."
Else
varPDF_Name = Application.GetSaveAsFilename(Filefilter:="PDF(*.pdf),*.pdf", _
Title:="Exportieren als PDF")
If varPDF_Name  False Then
Me.Hide
ActiveWorkbook.Sheets(Blaetter).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=varPDF_Name, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
wks.Select
End If
End If
End Sub

Beliebteste Forumthreads (12 Monate)

Auswahl von Blättern zum Drucken, Fortsetzung

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Auswahl von Blättern zum Drucken, Fortsetzung

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread