返回列表 上一主題 發帖

一個列印問題請求協助

一個列印問題請求協助

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

各前輩大大, 安好,
小弟有一個列印問題請求協助, 希望能得到回應, 附檔, 明細說明在列印檔中, 先行謝謝!!
mm.zip (24.38 KB)

用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
複製代碼


mm01.rar (21.65 KB)
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

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

TOP

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

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

TOP

回復 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

mm02.rar (23.25 KB)
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

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

TOP

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

TOP

回復 7# hong912


再加個變數即可:
mm03.rar (23.52 KB)
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

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

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝,花了許多心血,想盡各式方法要遮擋時間,結果是:浪費了更多時間,且一無所成!
返回列表 上一主題