返回列表 上一主題 發帖

[發問] 信封列印

[發問] 信封列印

各位高手大大
  懇求大大協助
1.開啟時會將定義"確認欄"內的資料清除
2.按列印時,只會送出印表機最前面有v的資料
3.列印的格式為在"資料端"sheet中的H1中所選之工作表(本案是"大信封or小信封")
4."**"時停止列印

以上

信封快速列印.rar (13.69 KB)

信封快速列印.rar (12.53 KB)

本帖最後由 n7822123 於 2018-11-3 00:05 編輯

回復 1# zamamilo

家裡沒印表機,沒法幫你測試
修改你的程式如下,你TRY看看

Private Sub Workbook_Open()
B = Split(Names("確認欄").Value, "!")  '取得"確認欄"名稱的地址
Range(B(1)).ClearContents  '清空確認欄內的值
End Sub

Private Sub CommandButton1_Click()
Dim r&
With Sheets([H1].Value)  '取得[H1]儲存格的值,並找到此名稱的工作表
  For r = 2 To Cells(Rows.Count, 2).End(xlUp).Row  '資料範圍
    If Cells(r, 1) = "**" Then Exit Sub '離開程序,停止列印
    If Cells(r, 1) = "V" Then  '有"V"才列印
      .[H2] = Cells(r, 2)
      .[F6] = Cells(r, 3)
      .[E11] = Cells(r, 4)
      .[H3] = Cells(r, 5)
      .[B4] = Cells(r, 6)
      .[B6] = Cells(r, 7)
      '.PrintPreview '預覽
      .PrintOut '列印
    End If
  Next r
End With
End Sub

信封快速列印-new.rar (15.5 KB)
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

回復 2# n7822123

謝謝n7822123大大

  目前測試沒問題.

TOP

        靜思自在 : 手心向下是助人,手心向上是求人;助人快樂,求人痛苦。
返回列表 上一主題