返回列表 上一主題 發帖

一個列印問題請求協助

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-2-15 
1# 跳轉到 »
發表於 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
複製代碼


mm01.rar (21.65 KB)

TOP

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-2-15 
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

mm02.rar (23.25 KB)

TOP

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-2-15 
3#
發表於 2018-6-12 11:20 | 顯示全部帖子
回復 7# hong912


再加個變數即可:
mm03.rar (23.52 KB)

TOP

        靜思自在 : 【為善競爭】人生要為善競爭，分秒必爭。
返回列表 上一主題