activereport3.dsr

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

VERSION 5.00
Begin {9EB8768B-CDFA-44DF-8F3E-857A8405E1DB} ActiveReport3 
   Caption         =   "准购证打印"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   MDIChild        =   -1  'True
   _ExtentX        =   26882
   _ExtentY        =   19606
   SectionData     =   "ActiveReport3.dsx":0000
End
Attribute VB_Name = "ActiveReport3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim connstr As String
Public dwID As Long
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
    
        ' Sets the paper's width to 8 inches
    'Me.PageSettings.PaperWidth = 11907
         ' Sets the paper's height to 18 inches
    'Me.PageSettings.PaperHeight = 16840
      'Sets a 1 inch bottom margin
     Me.PageSettings.BottomMargin = 800
      'Sets a 1 inch top margin
     Me.PageSettings.TopMargin = 1200
      '