chi830

試試看
第二個問題如下
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的問題了.....

chi830

再請教存檔的路徑可以是網芳中的任一台電腦
Patha = "\\BUS\SCAN\出門證\"    '存檔路徑這樣是可以成功的

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

lpk187

回復 12# chi830


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

chi830

回復 13# lpk187


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

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

chi830

現又發現一個問題，請問轉PDF一定要電腦有安裝Adobe Acrobat 嗎??
因有的User裝的是免費轉PDF的程式(例如:CutePDF  OR  PrimePdF)，用這個軟體的人操作會無法轉存PDF耶....

lpk187

回復 15# chi830
另存新檔有如下圖可存成PDF的選項應該都可以存吧！

下載 (262.17 KB)

2015-3-13 16:35

chi830

回復 16# lpk187


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

chi830

再請教一下~
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

lpk187

回復 18# chi830


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

chi830

回復 19# lpk187

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

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