Makro: PDF exportieren mehrere Blätter in derselben Datei

Out of category
1

Hallo

 Ich habe ein Makro zum Ausführen von PDF-Exporten erhalten, ich habe es leicht geändert, um alle Konfigurationen mit demselben Plan zu exportieren. Ich möchte zwei Blätter auf diesem Plan machen.

Nur exportiert er die Blätter selbstständig.

Kennen Sie eine Möglichkeit, beide Blätter in dieselbe Datei zu legen?

Ein Teil des betreffenden Kodex:

Während i <= iT - 1
          'Layout-Ansicht20
            boolstatus = Part.Extension.SelectByID2("Zeichnungsansicht20", "DRAWINGVIEW", 0.195997909234212, 0.164382166839605, 0, Falsch, 0, Nichts, 0)
            Set swView = swSelMgr.GetSelectedObject6(1, 0)
            swView.ReferencedConfiguration = vNameConf(i)
        'Layout-Ansicht17
            boolstatus = Part.Extension.SelectByID2("Zeichnungsansicht17", "DRAWINGVIEW", 0.127659480183812, 0.163338832044942, 0, Falsch, 0, Nichts, 0)
            Set swView = swSelMgr.GetSelectedObject6(1, 0)
            swView.ReferencedConfiguration = vNameConf(i)
        "Ansicht der Zeichnung16
            boolstatus = Part.Extension.SelectByID2("Drawing View16", "DRAWINGVIEW", 6.19293881200676E-02, 0.163338832044942, 0, False, 0, Nichts, 0)
            Set swView = swSelMgr.GetSelectedObject6(1, 0)
            swView.ReferencedConfiguration = vNameConf(i)
        "
            Part.ClearSelection2 Wahr

            Part.ForceRebuild3 Wahr

            Für a = 1 TB swModel.GetSheetCount
                swModel.ActivateSheet vSheets(a - 1)
                Set swSheet = swModel.GetCurrentSheet
                ' So speichern Sie das Blatt als PDF
                Legen Sie swModelDocExt = swModel.Extension fest
                Set swExportPDFData = swApp.GetExportFileData(1)
                swExportPDFData.ViewPdfAfterSaving = Falsch
                nFileName = Pfad & "\" & vNameConf(i) & "-" & lastInd & "-" & swSheet.GetName & ".PDF"
                boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, swSheet.GetName)
                boolstatus = swModelDocExt.SaveAs(nDateiname, 0, 0, swExportPDFData, lFehler, lWarnungen)
            Weiter a
            "MsgBox i
            i = i + 1
            
           Wend


macro_pdf_enregistrer_sous-2.swp
2

Hallo

Das ist es, was das hier gegebene Beispiel tut.

Herzliche Grüße

3

Vielen Dank
Schwer zu verstehen, es ist nur erstes Makro, es scheint mir, dass dieser Code voller Tippfehler ist, die wahrscheinlich durch die Übersetzung gemacht wurden...

Aber wenn ich es richtig verstehe, muss ich eine Variable mit dem Namen aller meiner Blätter erstellen.

Ich teste cool

4

Alles, was Sie tun mussten, war, einen Wert zu ersetzen, kein Array

swSheet in der aktiven Blattvariablen

swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, swSheet.GetName)

vSheet und funktionsfähige Blätter

boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, vSheet)