activereport2.dsr

一、 设计构想： 为减轻财政局非税收入管理处票据准购薄管理工作量

VERSION 5.00
Begin {9EB8768B-CDFA-44DF-8F3E-857A8405E1DB} ActiveReport2 
   Caption         =   "报表打印"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   Icon            =   "ActiveReport2.dsx":0000
   MDIChild        =   -1  'True
   _ExtentX        =   26882
   _ExtentY        =   19606
   SectionData     =   "ActiveReport2.dsx":84CA
End
Attribute VB_Name = "ActiveReport2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim connstr As String
Private Sub ActiveReport_ReportStart()
On Error Resume Next
    connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\GLNHHY.DLL;Persist Security Info=False"
    DataControl1.ConnectionString = connstr
    
    'Me.PageSettings.PaperSize = 8
        ' Sets the paper's width to 8 inches
    'Me.PageSettings.PaperWidth = 23808
         ' Sets the paper's height to 18 inches
    'Me.PageSettings.PaperHeight = 16836
      'Sets a 1 inch bottom margin
     'Me.PageSettings.BottomMargin = 1448
      'Sets a 1 inch top margin
     'Me.PageSettings.TopMargin = 1440
      '