標題: 一個列印問題請求協助 [打印本頁]

---

作者: 317    時間: 2018-5-23 18:28     標題: 一個列印問題請求協助

本帖最後由 317 於 2018-5-23 18:30 編輯

各前輩大大, 安好,
小弟有一個列印問題請求協助, 希望能得到回應, 附檔, 明細說明在列印檔中, 先行謝謝!!
[attach]28766[/attach]一

---

作者: 准提部林    時間: 2018-5-23 20:22

用2003版寫一個, 自行套看看:

1. Private Sub CommandButton1_Click()
   
2. If TextBox1 = "" Then Exit Sub
   
3. [B1] = TextBox1
   
4. With [B2]
   
5.      .Formula = "=VLOOKUP(B1,'" & ThisWorkbook.Path & "\[資料庫.xls]員工資料表'!$A:$B,2,)"
   
6.      .Value = .Value
   
7. End With
   
8. If IsError([B2]) Then
   
9.     MsgBox "找不到符合的姓名！　": [B1:B2] = "": Exit Sub
   
10. Else
    
11.    Unload Me
    
12.    [A1:L48].Name = ActiveSheet.Name & "!Print_Area"
    
13.    ActiveSheet.PrintOut
    
14. End If
    
15. End Sub

複製代碼

[attach]28767[/attach]

---

作者: 317    時間: 2018-5-23 21:41

回復 2# 准提部林
感謝版大回應,
這正是我想要的效果
祝願身體健康, 快樂, !!

---

作者: 317    時間: 2018-6-10 09:26

本帖最後由 317 於 2018-6-10 09:31 編輯

回復 2# 准提部林
前輩, 早晨
先感謝前輩回應,
這個列印程式, 我日前發現有一個問題存在,
如果用家在列印檔案工作表中按下列印按紐, 是可以拒絕在資料庫檔案參照欄位中沒有注冊人仕列印,
但若用家不按此按紐, 直接在工具列中按列印, 是無須輸入名稱, 直接可列印,
前輩, 我想做到用家無論如何列印, 都必須輸入姓名, 就是否可以,
感謝!!, 祝願快樂..

---

作者: 准提部林    時間: 2018-6-11 15:01

回復 4# 317


要幾個程序:
模組區:
Public PrntChk%

Sub Macro1()
PrntChk = 1 '列印控制碼
UserForm1.Show
End Sub

活頁簿/程序區:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "工作表1" Then
  If PrntChk <> 1 Then Cancel = True
End If
End Sub

FORM表單區:
Private Sub CommandButton1_Click()
If TextBox1 = "" Then Exit Sub
[B1] = TextBox1
With [B2]
     .Formula = "=VLOOKUP(B1,'" & ThisWorkbook.Path & "\[資料庫.xls]員工資料表'!$A:$B,2,)"
     .Value = .Value
End With
If IsError([B2]) Then
    MsgBox "找不到符合的姓名！　": [B1:B2] = "": Exit Sub
Else
   [A1:L48].Name = ActiveSheet.Name & "!Print_Area"
   ActiveSheet.PrintOut
   Unload Me
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
PrntChk = 0
End Sub

[attach]28813[/attach]

---

作者: 317    時間: 2018-6-11 19:00

回復 5# 准提部林
謝謝前輩,
誠心感謝, 於此祝願快樂健康..感恩...

---

作者: hong912    時間: 2018-6-12 10:22

回復 5# 准提部林
大大，安好
小弟看到這篇大大覆317樓主文章，而我有一個問題請教，是否可以做到列印者在工具列按按紐，如表單按鈕一樣，顯示表單，簡單來說，無論用者按工具列或表單按鈕，表單都會
顯示
謝謝，感恩。

---

作者: 准提部林    時間: 2018-6-12 11:20

回復 7# hong912


再加個變數即可:
[attach]28821[/attach]

---

作者: hong912    時間: 2018-6-12 18:51

回復 8# 准提部林
台上一分功, 台下十年功, 大大這等功力, 偑服偑服, 感謝回應,
祝健康, 快樂,

---

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