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猴年全勤獎章
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猴年全勤獎章
12#
發表於 2015-3-11 15:39 | 只看該作者
再請教存檔的路徑可以是網芳中的任一台電腦
Patha = "\\BUS\SCAN\出門證\"    '存檔路徑這樣是可以成功的

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

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猴年全勤獎章
14#
發表於 2015-3-12 21:31 | 只看該作者
回復 13# lpk187


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

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

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猴年全勤獎章
15#
發表於 2015-3-13 16:03 | 只看該作者
現又發現一個問題，請問轉PDF一定要電腦有安裝Adobe Acrobat 嗎??
因有的User裝的是免費轉PDF的程式(例如:CutePDF  OR  PrimePdF)，用這個軟體的人操作會無法轉存PDF耶....

TOP

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
16#
發表於 2015-3-13 16:37 | 只看該作者
回復 15# 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猴年全勤獎章
17#
發表於 2015-3-16 09:51 | 只看該作者
回復 16# lpk187


    嗯嗯~的確如此~了解了...謝謝您~~^^

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猴年全勤獎章
18#
發表於 2015-3-16 15:07 | 只看該作者
再請教一下~
BeforePrint，這個Event是在預覽時就已將Worksheets("序號").Cells(fi.Row, "B") = "V"的值寫入
是否有方法可讓user是真正送出列印指令，該段程式碼才生效呢?
且同時自動"重新取號"
For Each 序號 In Worksheets("序號").Range("A2:A" & Worksheets("序號").Range("A65535").End(xlUp).Row)
    ro = 序號.Row
    If Sheets("序號").Cells(ro, "B") = "" Then
        '[B2] = Worksheets("序號").Cells(ro, "A")
        Worksheets("統計").Range("B2").Value = Worksheets("序號").Cells(ro, "A")
        End
    End If
    Next

TOP

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
19#
發表於 2015-3-16 15:59 | 只看該作者
回復 18# chi830


    不知道是不是因為版本不同的因素。我的2010在執行預覽列印時，並沒有你說的情況，都會要按列印才會讓BeforePrint事件啟動！

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猴年全勤獎章
20#
發表於 2015-3-17 11:05 | 只看該作者
回復 19# lpk187

  看來真是版本的問題，我在2010版測，預覽時並不會寫入值

  那請教大大，能不能在預覽列印時，系統判斷Worksheets("統計").Range("B2")是否在Worksheets("序號").Cells(fi.Row, "B") = "V"
  如果為已標記，則跳出訊息"該序號已存在，請先清除列印標記或是重新取號"，然後終止不讓繼續列印

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
123
返回列表 上一主題