网站 › 『悬赏问答区』 › 求助大佬一个Excel中的数据打印问题

jys159 发表于 2024-11-10 08:06

求助大佬一个Excel中的数据打印问题

求助大佬一个Excel中的数据打印问题，以下蓝凑云盘中的表中是采用的什么方式弄成的这个一键打印数据的，有没有什么简单的方法？平时工作中由于需要打印的付款单、结算单比较多，想直接从表里提取数据进行打印。
https://wwpc.lanzoub.com/iYnL02eoqzzc
密码:3kk9

明珠 发表于 2024-11-10 08:06

这个EXCEL的打印功能和检查功能是用VBA语言写的。工程密码已破解。现在工程密码是   1

请下载附件自行查看。楼主你是要实现什么功能呢？可以继续编辑代码实现。

这是部分代码展示：

'开始条数
Private Sub FromTextBox_Change()
    Me.NumOptionButton = True
End Sub
'结束条数
Private Sub ToTextBox_Change()
   Me.NumOptionButton = True
End Sub
'取消
Private Sub CancelButton_Click()
    Me.AllOptionButton = Flase
    Me.NumOptionButton = Flase
    Me.Hide
End Sub
' 确定
Private Sub PrintButton_Click()
If Me.NumOptionButton = True Then
       Dim beingNum As Integer
       Dim endNum As Integer
       If IsNumeric(Me.FromTextBox) Then
         beingNum = Me.FromTextBox
       Else
         MsgBox ("请填写数字！")
         Exit Sub
       End If
       If IsNumeric(Me.ToTextBox) Then
         endNum = Me.ToTextBox
       Else
         MsgBox ("请填写数字！")
         Exit Sub
       End If
       If beginNum > endNum Then
         MsgBox ("开始条数不能大于结束条数！")
         Exit Sub
       End If
   End If
   Me.Hide
End Sub

Private Sub UserForm_Click()

End Sub


附件下载：https://nmgzz.lanzouj.com/ijET02epflra密码:g9w1

cayuer 发表于 2024-11-10 08:21

附件是用VBA做的 ，楼主如果需要简单的 可以自己通过录制宏来实现。
本论坛和EXHOME论坛都有高手的。

查看完整版本: 求助大佬一个Excel中的数据打印问题