標題: [發問] 篩選後另存PDF遺失了標題列 [打印本頁]

---

作者: missbb    時間: 2016-12-11 16:31     標題: 篩選後另存PDF遺失了標題列

大大, 請賜教,

有一個VBA檔, 篩選後另存PDF, 但沒有A1至J5的標題包括日期及星期, 請問未知那裡出錯?

[attach]26070[/attach]

---

作者: missbb    時間: 2016-12-12 14:25

本帖最後由 missbb 於 2016-12-12 14:26 編輯

再試下列CODE, 都無法將ROW 1列出, 求大大賜教?

1. [code]Sub printPDF_4()
   
2. 'pdf for shop reporting errors
   
3. 
   
4. Dim xPath As String
   
5. Dim d As Object
   
6. Dim A As Variant
   
7. Dim f As String
   
8. Dim ky As Variant
   
9. Dim rng As Range
   
10.   
    
11. 
    
12.   ActiveSheet.PageSetup.PrintArea =   ActiveCell.CurrentRegion.Address
    
13.   Set rng = ActiveSheet.UsedRange
    
14. 
    
15.     xPath = Application.ActiveWorkbook.Path
    
16.     Set d = CreateObject("Scripting.Dictionary")
    
17. 
    
18.     With Worksheets("attendance report")
    
19.         For Each A In .Range(.[c3], .[c3].End(xlDown))
    
20.         d(A.Value) = ""
    
21.             Next
    
22. 
    
23.             f = InputBox("輸入PDF檔的月份, 例:201508")
    
24.                 If f = "" Then Exit Sub
    
25. 
    
26.     For Each ky In d.KEYS
    
27.          .Range("c3").AutoFilter field:=3, Criteria1:=ky
    
28.          
    
29.         If Dir(xPath & "\" & ky & "_" & f & ".pdf") <> "" Then Kill xPath & "\" & ky & "_" & f & ".pdf" '同名檔案刪除
    
30.         
    
31.         rng.ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
    
32.             xPath & "\" & ky & "_" & f & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    
33.                 IgnorePrintAreas:=False, OpenAfterPublish:=False  '另存成PDF檔案
    
34. 
    
35. Next
    
36. 
    
37. If .FilterMode = True Then .ShowAllData '顯示所有資料
    
38. 
    
39. End With
    
40. End Sub

複製代碼

[/code]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)