wqreplotnopn.dsr

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

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

Private Sub ActiveReport_ReportStart()
  If wqabnum >= 4 Then
     Field3.Left = 0
     Field3.Width = 2800
     Field7.Left = 3075
     Field7.Width = 2800
    Else
     Field3.Left = 1110
     Field3.Width = 1710
     Field7.Left = 4200
     Field7.Width = 1710
  End If
'2006.06.28 add the code
 If wqabnum >= 6 Then
   For i = 1 To 16
     Me.Detail.Controls("field" & i).Font.Size = 9
     Me.Detail.Controls("field" & i).VerticalAlignment = ddTXMiddle   '2006.06.15 add the code
   Next
   Label6.Font.Size = 9: Label7.Font.Size = 9: Label12.Font.Size = 9: Label13.Font.Size = 9
   Label14.Font.Size = 9: Label15.Font.Size = 9: label16.Font.Size = 9: Label17.Font.Size = 9
   Label18.Font.Size = 9: Label19.Font.Size = 9: Label20.Font.Size = 9: Label21.Font.Size = 9
 End If
End Sub

Private Sub Detail_AfterPrint()
  wqprint = 0
End Sub
Private Sub setjpnull()
Dim i, kgnum As Integer
Dim tmpdy, tmpdl As String
On Error Resume Next

 For i = 1 To 16  '清空数据
   Me.Detail.Controls("Field" & i).Text = ""
 Next
 
tmpdy = "": tmpdl = ""
kgnum = InStr(wqratings, " ")
For i = 1 To kgnum
  tmpdy = tmpdy & Mid(wqratings, i, 1)
Next
For i = kgnum To Len(wqratings)
  tmpdl = tmpdl & Mid(wqratings, i, 1)
Next

 For i = 0 To 1
   If wqccflag = 0 Then
       Me.Detail.Controls("Field" & 1 + i * 4).Text = wqtype & "  " & wqcc & "  " & "FUSE"
     Else
      Me.Detail.Controls("Field" & 1 + i * 4).Text = wqtype
   End If
   'Me.Detail.Controls("Field" & 2 + i * 4).Text = wqratings
   Me.Detail.Controls("Field" & 2 + i * 4).Text = tmpdy & " " & tmpdl
   Me.Detail.Controls("Field" & 3 + i * 4).Text = wqab
   Me.Detail.Controls("Field" & 4 + i * 4).Text = wqqty
 Next
 If bq6hother <> "" Then
   Field9.Text = bq6hother: Field10.Text = bq6hother
 End If
 Field11.Text = wqlotno: Field12.Text = wqlotno
 Field13.Text = wqpn: Field14.Text = wqpn
 
'2006.07.17 add the code
 If wq110flag <> "" Then
    Field15.Visible = True: Field16.Visible = True
    Field15.Text = wq110flag:  Field16.Text = wq110flag
  Else
    Field15.Visible = False: Field16.Visible = False
 End If

End Sub

Private Sub Detail_Format()
   Call setjpnull
End Sub