csdn1284934570的专栏

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(

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

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

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