wxlcam4.dsr

用于电子行业打印复杂报表格式和不干胶标签

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} wxlcam4 
   Caption         =   "ActiveReport1"
   ClientHeight    =   5895
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11595
   StartUpPosition =   2  '屏幕中心
   _ExtentX        =   20452
   _ExtentY        =   10398
   SectionData     =   "wxlcam4.dsx":0000
End
Attribute VB_Name = "wxlcam4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveReport_Initialize()
   wxlcam4.Printer.PaperSize = bgjpapersize
   If wxlprintflag = 1 Then
     wxlcam4.Printer.PrintDialog
   End If
End Sub

Private Sub ActiveReport_ReportStart()
  'Printer.PaperWidth = 106 * stunit  '纸张高
  'Printer.PaperHeight = 51 * stunit   '纸张宽
  'wxlcam4.Printer.PaperSize = bgjpapersize
  If wxlprflag = 0 Then
     Label12.Visible = True: Label13.Visible = True
     Label22.Visible = True: Label23.Visible = True
    Else
     Label12.Visible = False: Label13.Visible = False
     Label22.Visible = False: Label23.Visible = False
  End If
End Sub

Private Sub Detail_AfterPrint()
  wxlprint = 0
End Sub
Private Sub setjpnull()
Dim tmpab As String
Dim tmpfirstab, tmpwholeab As String
Dim i, firstnum As Integer
 For i = 1 To 14  '清空数据
   Me.Detail.Controls("Field" & i).Text = ""
 Next

 For i = 0 To 1
   Me.Detail.Controls("Field" & 1 + i * 7).Text = wxlab
   Me.Detail.Controls("Field" & 2 + i * 7).Text = wxlpn
   Me.Detail.Controls("Field" & 3 + i * 7).Text = wxltype
   Me.Detail.Controls("Field" & 4 + i * 7).Text = wxlratings
   Me.Detail.Controls("Field" & 5 + i * 7).Text = wxlqty
   Me.Detail.Controls("Field" & 6 + i * 7).Text = wxllotno
   Me.Detail.Controls("Field" & 7 + i * 7).Text = wxldate
 Next
End Sub

Private Sub Detail_Format()
  Call setjpnull
End Sub