標題: [發問] 信封列印 [打印本頁]

---

作者: zamamilo    時間: 2018-11-2 14:42     標題: 信封列印

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

以上

---

作者: n7822123    時間: 2018-11-2 23:59

本帖最後由 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

[attach]29627[/attach]

---

作者: zamamilo    時間: 2018-11-3 22:16

回復 2# n7822123

謝謝n7822123大大

  目前測試沒問題.

---

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