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

2024-10-12 04:19:27

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