输入数据并打印print_area

Question

我是Excel VBA的完全初学者，但我正在尝试创建一个用户表单（用于多个工作簿）以打印其中的电子表格中的图表，但首先我需要设置日期范围进入两个单元格，以便整理图表的信息。

有没有办法使用VBA这样做？

这是我到目前为止所获得的，但它只是自动运行而不是等待按下打印按钮：

Sub PrintChart_Click()

Dim StartDate As Date, EndDate As Date
StartDate = txtdatestart.Value
EndDate = txtdateend.Value

Cells(2, 3) = StartDate
Cells(3, 3) = EndDate

表（ “仪表盘”）。范围（ “图表”）。打印输出

End Sub

Answer 1

好的，这就是我设法找到的

Sub PrintChart_Click()

Dim StartDate As Date, EndDate As Date
StartDate = txtdatestart.Value
EndDate = txtdateend.Value

Sheets("Dashboard").Cells(2, 3) = StartDate
Sheets("DashBoard").Cells(3, 3) = EndDate

Sheets("Dashboard").Range("Charts").PrintOut

Sheets("Dashboard").Cells(2, 3) = ""
Sheets("Dashboard").Cells(3, 3) = ""

End Sub

这看起来效果很好。