csdn1284934570的专栏

Private Sub Print_网格()   Dim RowPage As Long, ColPage As Long, RowHeight As Double, ColWidth As Double, arrRow() As Long, arrCol() As Long, i As Long, j As Long   Const RowPageHeight As Double = 145

'利用picturebox的autoredraw、autosize 属性配合hscrollbar、vsrcrollbar实现滚动浏览 '2个picturebox控件 1个作为容器、1个作为显示 ‘1个加载菜单项  1个hscrollbar 1个vscrollbar Private Sub Form_Load()   HScroll.Visible = False   VScroll.Vi

Option Explicit Private Sub Form_Load()   Call msh_初始化 End Sub Private Sub Form_Resize()   With msh     .Left = 0     .Top = 0     .Width = Me.ScaleWidth     .Height = Me.ScaleHeight

Private Sub mnu打印预览_Click()   Dim iRow As Long, iCol As Long   Dim xls As Excel.Application   Dim xlsWorkBook As Excel.Workbook   Dim xlsWorksheet As Excel.Worksheet         Set xls = CreateObj

Private Sub mnu打印预览_Click()   Dim iRow As Long, iCol As Long   Dim xls As Excel.Application   Dim xlsWorkBook As Excel.Workbook   Dim xlsWorksheet As Excel.Worksheet      Set xls = CreateObject(