一個列印問題請求協助

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

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

mm.zip (24.38 KB) 一

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

2^#

發表於 2018-5-23 20:22 | 只看該作者

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

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
Unload Me
[A1:L48].Name = ActiveSheet.Name & "!Print_Area"
ActiveSheet.PrintOut
End If
End Sub

複製代碼

mm01.rar (21.65 KB)

TOP

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

3^#

發表於 2018-5-23 21:41 | 只看該作者

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

TOP

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

4^#

發表於 2018-6-10 09:26 | 只看該作者

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

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

5^#

發表於 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

mm02.rar (23.25 KB)

TOP

317