動態更改文件名 - ComboBox Excel打印

如何根據Sel_Manager（combobox1）動態更改pdf的名稱？觀衆想要打印多個PDF並同時在屏幕上顯示它們。先謝謝你！動態更改文件名 - ComboBox Excel打印

Private Sub CommandButton1_Click() 
Dim Sel_Manager As String 
'Specify headers to be repeated at the top 
With ActiveSheet.PageSetup 
     .PrintTitleRows = "$5:$9" 
     .PrintTitleColumns = "$B:$M" 
     .Orientation = xlLandscape 
     .Zoom = False 
     .FitToPagesWide = 1 
     .FitToPagesTall = 1 
End With 

'Manager selection through simple Inputbox 
Sel_Manager = ComboBox1 
'Insert autofilter for worksheet 
Cells.Select 
Selection.AutoFilter 
'Select manager defined in inputbox 
ActiveSheet.Range("B14", Range("M14").End(xlDown)).AutoFilter Field:=1, Criteria1:=Sel_Manager 
'Select range to be printed and specify manager in filename 
ActiveSheet.Range("B14", Range("M14").End(xlDown)).Select 

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
"Manager.pdf", Quality:=xlQualityStandard, _ 
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True 

    ActiveSheet.ShowAllData 

End Sub

來源

2016-11-07 Aspiring Developer

'sheet1.sel_manager.value＆「.PDF」' – HA560

我收到一個「方法或數據成員找不到」錯誤？我檢查了它是我正在使用的Sheet1 –

找到答案 -

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
Sel_Manager + ".pdf",

來源

2016-11-08 02:30:53

動態更改文件名 - ComboBox Excel打印

回答

相關問題