123
返回列表 上一主題 發帖

自動填入未做列印標記的序號

chi830

帖子
106 
主題
27 
精華
0 
積分
169 
點名
9  
作業系統
Win10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2011-6-30 
最後登錄
2026-1-15 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
15# 跳轉到 »
發表於 2015-3-13 16:03 | 只看該作者
現又發現一個問題，請問轉PDF一定要電腦有安裝Adobe Acrobat 嗎??
因有的User裝的是免費轉PDF的程式(例如:CutePDF  OR  PrimePdF)，用這個軟體的人操作會無法轉存PDF耶....

TOP

chi830

帖子
106 
主題
27 
精華
0 
積分
169 
點名
9  
作業系統
Win10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2011-6-30 
最後登錄
2026-1-15 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
14#
發表於 2015-3-12 21:31 | 只看該作者
回復 13# lpk187


    我終於知道我錯在哪裡了，因為之前轉存*.xlsb時，是在預覽列印的時候就會生成檔案，同時也是被BeforePrint這個event給蒙蔽了，
    所以我一直以為預覽後就應該產生新檔，又因為在測試，所以一直沒真的按列印，才會一直不產生PDF
    現在OK了~~~真是感謝lpk大大嘍....^__^

    接下來，網路磁碟機的帳/密，要請其他先進幫幫忙嘍......感謝~~~

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
13#
發表於 2015-3-11 16:23 | 只看該作者
回復 12# chi830


    轉存PDF檔，在我幾台電腦試都可以，所以我也不知問題在哪？我再研究看看
至於網路芳鄰，呵呵！我沒用過所以只好請其他大大回答了！

TOP

chi830

帖子
106 
主題
27 
精華
0 
積分
169 
點名
9  
作業系統
Win10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2011-6-30 
最後登錄
2026-1-15 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
12#
發表於 2015-3-11 15:39 | 只看該作者
再請教存檔的路徑可以是網芳中的任一台電腦
Patha = "\\BUS\SCAN\出門證\"    '存檔路徑這樣是可以成功的

但若有帳號/密碼時，要怎麻在語法中先將資訊輸入呢??

TOP

chi830

帖子
106 
主題
27 
精華
0 
積分
169 
點名
9  
作業系統
Win10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2011-6-30 
最後登錄
2026-1-15 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
11#
發表於 2015-3-11 15:12 | 只看該作者
試試看
第二個問題如下
Worksheets("統計").Select
Range("A110").Select
Selection.Copy
'上面的式 ...
lpk187 發表於 2015-3-11 13:46



    試了一下，沒有篩選內容出現~
    後來把xlUp改為xlDown就可以了
    Range("A1:L" & Cells(Rows.Count, "L").End(xlDown).Row).Copy

    謝謝lpk187先進的提點~
    現在就差轉存PDF的問題了.....

TOP

chi830

帖子
106 
主題
27 
精華
0 
積分
169 
點名
9  
作業系統
Win10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2011-6-30 
最後登錄
2026-1-15 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
10#
發表於 2015-3-11 14:20 | 只看該作者
回復 8# lpk187


   仍是無法存PDF檔呢~ 一樣的錯誤訊息

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
9#
發表於 2015-3-11 13:46 | 只看該作者
本帖最後由 lpk187 於 2015-3-11 13:57 編輯

試試看
第二個問題如下
Worksheets("統計").Select
Range("A1:L10").Select
Selection.Copy
'上面的式了可以不用有Select所以可以只寫成下面


'              vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv'這一句是可以自己判斷到哪一列
Range("A1:L" & Cells(Rows.Count, "L").End(xlUp).row).Copy

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
8#
發表於 2015-3-11 13:40 | 只看該作者
成品出門證+序號.rar (35.46 KB)
試試看
回復 7# chi830

TOP

chi830

帖子
106 
主題
27 
精華
0 
積分
169 
點名
9  
作業系統
Win10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2011-6-30 
最後登錄
2026-1-15 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
7#
發表於 2015-3-11 13:03 | 只看該作者
本帖最後由 chi830 於 2015-3-11 13:06 編輯

回復 6# lpk187

    成品出門證+序號.zip (31.8 KB)

    轉PDF失敗，會出現「文件未儲存。文件可能已開啟，或在儲存過程中發生錯誤」
   

    另外請教因「統計」所篩選之結果有長，有短
    若用 Worksheets("統計").Select
             Range("A1:L10").Select
             Selection.Copy
    就只會複製到A1:L10區間資料，能否將所有結果都COPY到呢?

TOP

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
6#
發表於 2015-3-10 21:58 | 只看該作者
本帖最後由 lpk187 於 2015-3-10 21:59 編輯

回復 5# chi830


    可以存成PDF檔，不過會和BeforePrint事件形成無限迴圈，所以要設一個停損點給他，也就是要宣告一個公用變數給他做停損點，就可以存成PDF檔了 ，以下代碼你再試試看行不行！
  1. Dim N! '宣告一個可做停損的公用變數
  2. Private Sub Workbook_BeforePrint(Cancel As Boolean)
  3. If N > 0 Then
  4.     N = 0 '結束前先把N設回0，這樣就又可以下次執行BeforePrint事件
  5.     Cancel = False '這裡則是真正停止時，可以列印文件
  6.     End
  7. End If
  8. N = N + 1
  9. Cancel = True '執行第一次_BeforePrint事件時讓它停止列印
  10. Pr = Worksheets("統計").Range("B2")
  11.     For Each fi In Worksheets("序號").Range("A2:A" & Worksheets("序號").Range("A65536").End(xlUp).Row)
  12.         If Pr = fi Then
  13.             Worksheets("序號").Cells(fi.Row, "B") = "V"
  14.             Exit For
  15.         End If
  16.     Next
  17. Patha = ThisWorkbook.Path & "\"
  18.     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  19.         Patha & Pr & ".pdf", Quality:=xlQualityStandard, _
  20.         IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
  21.         True
  22. End Sub
複製代碼

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
123
返回列表 上一主題