Excel 如何添加选择打印的窗体控件 excel如何设置一个按钮,点击后出对话框可以选择打印不连续...

excel\u4e2d\u5982\u4f55\u5b9e\u73b0\u7a97\u4f53\u9009\u62e9\u6027\u6253\u5370

\u6211\u6709\u4e2a\u7b28\u65b9\u6cd5\uff0c\u70b9\u51fb\u6253\u5370\u6309\u94ae\u540e\uff0c\u4e0d\u662f\u76f4\u63a5\u6253\u5370\uff0c\u800c\u662f\u5f39\u51fa\u53e6\u4e00\u4e2a\u7a97\u4f53\uff0c
\u5728\u7a97\u4f53\u7684UserForm_Initialize()\u4e2d\uff0c\u628a\u60f3\u6253\u5370\u7684\u5185\u5bb9\u590d\u5236\u5728\u7b2c\u4e8c\u4e2a\u7a97\u4f53\u4e0a\uff0c
\u5728\u7a97\u4f53\u7684UserForm_Activate()\u4e2d\uff0c\u5199\u4e0a\uff1a
PrintForm
Unload Me
\u7b2c\u4e8c\u4e2a\u7a97\u4f53\u57fa\u672c\u770b\u4e0d\u89c1\uff0c\u5c31\u50cf\u6309\u6253\u5370\u6309\u94ae\u540e\u76f4\u63a5\u6253\u5370\u4e0a\u6837\u3002

Private Sub CommandButton1_Click() Dim I As Long, J As Long Dim Ar, Br Dim S As String If OptionButton1.Value = True Then For I = 3 To Sheets.Count Sheets(I).PrintOut Next Else S = TextBox1.Text If InStr(S, ",") = 0 Then Sheets(Val(S) + 2).PrintOut Else Ar = Split(S, ",") For I = 0 To UBound(Ar) If InStr(Ar(I), "-") = 0 Then Sheets(Val(Ar(I)) + 2).PrintOut Else Br = Split(Ar(I), "-") For J = Br(0) To Br(1) Sheets(J + 2).PrintOut Next End If Next End If End IfEnd SubPrivate Sub CommandButton2_Click() EndEnd Sub\u7a97\u4f53\u6807\u9898\uff0c\u4f60\u70b9\u4e0b\u7a97\u4f53\u7a7a\u767d\u7684\u5730\u65b9\uff0c\u7136\u540e\u5de6\u8fb9\u5c5e\u6027\u91cc\u9762\u627e\u5230 caption \u5c31\u53ef\u4ee5\u4e86\uff0c\u8ddf\u5176\u4ed6\u63a7\u4ef6\u4e00\u6837\u7684\u3002



扩展阅读:怎么缩印在一张a4上 ... 打印时不打印隐藏区域 ... excel如何生成1-1 1-2 ... 一张表格被分成了两页打印 ... 打印怎么选择打印范围 ... 多个工作簿统一设置打印 ... excel选定区域打印 ... 打印怎么自适应大小 ... excel如何设置蓝色打印线 ...

本站交流只代表网友个人观点,与本站立场无关
欢迎反馈与建议,请联系电邮
2024© 车视网