es hakt. Folgende Situation: Es gibt einen Steckbrief der projektspezifische Daten beinhaltet. Die Anzahl der Projekte unterscheidet sich nach der Filterung AB, CD und EF. Bis zum Wechsel zu Windows 10 gab es noch ein Plugin, das die mit nachfolgendem Code nacheinander aufgerufenen Projekte im Steckbrief "druckte" und man am Ende eine speicherbare Pdf hatte. Seit Windows 10 haben wir dieses Plugin nicht mehr und müssen nun mit Windows Mitteln arbeiten. Wenn ich jetzt bei Application.ActivePrinter den herausgefundenen "Microsoft Print to PDF auf Ne02" hinterlege funktioniert es grnds. auch.
Allerdings druckt er nur einen Steckbrief, will speichern, druckt dann das nächste Projekt im Steckbrief und will wieder speichern...das ist bei tlw mehr als 200 Projekte keine Option.
Wunschsituation: Alle Steckbriefe werden gedruckt und in einer Datei hintereinander als pdf gespeichert.
Was fehlt, wer kann helfen.
Danke vorweg und viele Grüße
Sub Drucken(strAB As String, strCD As String, strEF As String)
Dim letzteZeile As Integer
Dim strDrucker As String
letzteZeile = Worksheets("Datengrundlage").UsedRange.SpecialCells(xlCellTypeLastCell).Row
strDrucker = Application.ActivePrinter
Application.ActivePrinter = GetPdfMultidoc ()
For i = 2 To letzteZeile
If (Tabelle2.Cells(i, 6).Value = strAB And Tabelle2.Cells(i, 7).Value = strCD And Tabelle2. _
_
_
_
_
Cells(i, 8).Value = strEF) Then
Tabelle1.Range("DD6") = Tabelle2.Cells(i, 2).Value
Tabelle1.Range("CH6") = Tabelle2.Cells(i, 4).Value
Tabelle1.Range("BD6") = Tabelle2.Cells(i, 8).Value
Tabelle1.Range("AF6") = Tabelle2.Cells(i, 7).Value
Tabelle1.Calculate
Tabelle1.PrintOut
End If
Next i
Application.ActivePrinter = strDrucker
End Sub