打印的时候如果(数据库)设定为预览则不连接打印机打印,只是出一个pdf的预览
项目是vb6移行到.net
原来vb6的source
Private Function mPrintSei()
Dim rpt As rptSeisakuSiji
On Error GoTo Err_mPrintSei
mPrintSei = False
Set rpt = New rptSeisakuSiji
With rpt
'出力件数を通知
.DetailCount = mlngRecordCnt_S
'シーケンシャルに出力するため、バックグラウンドを不可にする
.Run False
If G_Env_Mode = "TEST" Then
.show ‘’如果是test,就是预览,有一个show方法?
Else
.PrintReport False
End If
End With
Set rpt = Nothing
mPrintSei = True
Exit Function
Err_mPrintSei:
Call ErrorDisp_lbl(lblMessage, Err.Description, vbCritical, True, True)
Err.Clear
End Function |