Macro: exporteer PDF meerdere vellen in hetzelfde bestand

Out of category
1

Hallo

 Ik heb een macro om PDF-exports uit te voeren, ik heb deze enigszins gewijzigd om alle configuraties met hetzelfde plan te exporteren. Ik zou graag twee vellen willen maken op dit plan.

Alleen exporteert het de bladeren onafhankelijk.

Weet jij een manier om beide vellen in hetzelfde bestand te plaatsen?

Onderdeel van de betrokken code:

Terwijl i <= iT - 1
          'Indeling weergave20
            boolstatus = Part.Extension.SelectByID2("Tekening20", "TEKENING", 0.195997909234212, 0.164382166839605, 0, Onwaar, 0, Niets, 0)
            Stel swView = swSelMgr.GetSelectedObject6 in (1, 0)
            swView.ReferencedConfiguration = vNameConf(i)
        'Indeling aanzicht17
            boolstatus = Part.Extension.SelectByID2("Tekening17", "TEKENING", 0.127659480183812, 0.163338832044942, 0, Onwaar, 0, Niets, 0)
            Stel swView = swSelMgr.GetSelectedObject6 in (1, 0)
            swView.ReferencedConfiguration = vNameConf(i)
        'Tekening aanzicht16
            boolstatus = Part.Extension.SelectByID2("Tekening16", "TEKENING", 6.19293881200676E-02, 0.163338832044942, 0, Onwaar, 0, Niets, 0)
            Stel swView = swSelMgr.GetSelectedObject6 in (1, 0)
            swView.ReferencedConfiguration = vNameConf(i)
        "
            Deel.ClearSelection2 Waar

            Deel.ForceRebuild3 Waar

            Voor a = 1 TB swModel.GetSheetCount
                swModel.ActivateSheet vSheets(a - 1)
                Stel swSheet in = swModel.GetCurrentSheet
                ' Om het blad op te slaan als een PDF
                Stel swModelDocExt = swModel.Extension in
                Stel swExportPDFData = swApp.GetExportFileData(1) in
                swExportPDFData.ViewPdfAfterSaving = Onwaar
                nFileName = Pad & "\" & vNameConf(i) & "-" & lastInd & "-" & swSheet.GetName & ".PDF"
                boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, swSheet.GetName)
                boolstatus = swModelDocExt.SaveAs(nFileName, 0, 0, swExportPDFData, lErrors, lWarnings)
            Volgende a
            "MsgBox i
            i = ik + 1
            
           Gaan


macro_pdf_enregistrer_sous-2.swp
2

Hallo

Dit is wat het hier gegeven voorbeeld doet.

Vriendelijke groeten

3

Bedankt
Moeilijk te begrijpen, het is maar de eerste macro, het lijkt mij dat deze code vol zit met typefouten die waarschijnlijk door de vertaling zijn gemaakt...

Maar als ik het goed begrijp, moet ik een variabele maken met de naam van al mijn bladen.

Ik test cool

4

Het enige dat u hoefde te doen, was een waarde vervangen, niet een array

swSheet in de actieve bladvariabele

swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, swSheet.GetName)

vSheet en levensvatbare bladen 

boolstatus = swExportPDFData.SetSheets(swExportData_ExportSpecifiedSheets, vSheet)