camden6hw.dsr

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

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

Private Sub ActiveReport_ReportStart()
  'Printer.PaperWidth = 106 * stunit  '纸张高
  'Printer.PaperHeight = 51 * stunit   '纸张宽
  'camden6hw.Printer.PaperSize = bgjpapersize
  'camden6hw.Printer.Copies = camprint

  If camflag = 1 Then
      Label17.Visible = True: Label18.Visible = True
      Label27.Visible = True: Label28.Visible = True
      Label31.Left = 495: Label37.Left = 3555
      Field3.Left = 615: Field3.Width = 2205
      Field10.Left = 3675: Field10.Width = 2205
    Else '显示6φ标签盒内安标超过4个时
      Label17.Visible = False: Label18.Visible = False
      Label27.Visible = False: Label28.Visible = False
      Label31.Left = 855: Label37.Left = 3915
      Field3.Left = 945: Field3.Width = 1890
      Field10.Left = 4005: Field10.Width = 1890
  End If
  
 '2006.11.5 add the code  ******************
   If camflag = 2 Then
      Label17.Visible = True: Label18.Visible = True
      Label27.Visible = True: Label28.Visible = True
      Label31.Left = 495: Label37.Left = 3555
      Field3.Left = 615: Field3.Width = 2205
      Field10.Left = 3675: Field10.Width = 2205
   End If
'***********************************************
   
End Sub

Private Sub Detail_AfterPrint()
  camprint = 0
End Sub

Private Sub setjpnull()
Dim i 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 = Trim(camab)
   Me.Detail.Controls("Field" & 2 + i * 7).Text = Trim(campn)
   Me.Detail.Controls("Field" & 3 + i * 7).Text = Trim(camtype)
   Me.Detail.Controls("Field" & 4 + i * 7).Text = Trim(camratings)
   Me.Detail.Controls("Field" & 5 + i * 7).Text = Trim(camqty)
   Me.Detail.Controls("Field" & 6 + i * 7).Text = Trim(camlotno)
   Me.Detail.Controls("Field" & 7 + i * 7).Text = Trim(camdate)
 Next
End Sub
Private Sub Detail_Format()
  Call setjpnull
End Sub