Como abrir a caixa de diálogo Salvar como e salvar como PDF

2

Eu tenho o seguinte código, que dá a opção ao usuário no final para "Imprimir" a planilha

Eu gostaria de modificá-lo. O usuário deve ser perguntado se queremos "Exportá-lo para PDF", se ele selecionar "Sim", então a caixa de diálogo nativo do Excel salvar como deve abrir (aquela que obtemos quando pressionamos F12), com "Salvar como tipo" = PDF:

Sub sbHide_Rows_Based_On_Criteria_Optional_Print()
    Dim lRow As Long
    Dim iCntr As Long
    Dim asn As Integer  

    With Sheets("QuoteSheet")        
        lRow = .Cells(Rows.Count, "L").End(xlUp).Row            
        For iCntr = lRow To 1 Step -1
            If .Cells(iCntr, "L") = "Y" Then
               .Rows(iCntr).Hidden = True
            End If
        Next iCntr        
    End With

    answer = MsgBox("Do You Want a Printout?", vbYesNo + vbQuestion, "Print Sheet")
    If answer = vbYes Then ActiveSheet.PrintOut    
End Sub
    
por Firee 01.09.2015 / 10:23

1 resposta

3

Isso deve funcionar:

answer = MsgBox("Do you want to export to PDF?", vbYesNo + vbQuestion, "Export to PDF")
If answer = vbYes Then
    fileSaveName = Application.GetSaveAsFilename("", fileFilter:="PDF (*.pdf), *.pdf")
    If fileSaveName <> False Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileSaveName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    End If
End If
    
por 01.09.2015 / 10:45