用EXCEL来打印报表并生成折线图

2025-05-09 20:30:06

1、ex.Range("A2").Value = 8ex.Range("A3"稆糨孝汶;).Value = 16ex.Range("A4").Value = 7ex.Range("A5").Value = 22ex.Range("A6").Value = 13ex.Range("A7").Value = 15ex.Range("A8").Value = 11ex.Range("B1").Value = "系列2"

3、ex.Cells(, 1).ColumnWidth = 25ex.Cells(, 2).ColumnWidth = 25’插入折线图

5、'打印预揽ex.ActiveWindow.SelectedSheets.PrintPreview'关闭EXCEL

7、PrintFunc_Err:Set ex = NothingSet Ct = Nothingend Sub

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。