paxchamp.blogg.se - Excel vba on error export as fixed format

Worksheets("Label Template - 100X150").ExportAsFixedFormat Type:=xlTypePDF, _ Worksheets("Label Template - 100X150").PageSetup.FirstPageNumber = 1

Worksheets("Label Template - 100X150").Range("A1").Activate

Worksheets("Label Template - 100X150").Range("A1").Select Worksheets("Label Template - 100X150").Select Title:="Select Folder and FileName to save") PdfFilePath = Application.GetSaveAsFilename(InitialFileName:=strFile, _įileFilter:="PDF Files (*.pdf), *.pdf", _ Worksheets("Label Template - 100X150").Visible = True StrFile = ThisWorkbook.Path & "\" & strFile StrFile = "Labels_PrintGroup-" & lstPrintGroup.Value _ Which comes from the following macro: Sub PDFLabelsSheet() IgnorePrintAreas:=False, OpenAfterPublish:=True The issue I'm having is with the following line Worksheets("Label Template - 100X150").ExportAsFixedFormat Type:=xlTypePDF, _įilename:=pdfFilePath, Quality:=xlQualityMinimum, _ The first time I saw the described behavior was the first time I tried using this particular function in Excel 2016 (Windows 10), though I'm not sure that's the cause. I have a spreadsheet with forms and macros that worked until recently.