Testing Mo

 

 

Public Sub PrintOnePDFReport_Master(ByVal psLocalFile As String, ByVal psCount As Integer) Try Dim lThread As Thread = New Thread(New ParameterizedThreadStart(AddressOf PrintOnePDFReport_Sub)) lThread.Start(psLocalFile) Catch Err As Exception Call ErrHandler(Err.Message, APP_NAME) End Try End Sub Private Sub PrintOnePDFReport_Sub(ByVal psLocalFile As String) Try Call Shell(gsPDFEXEPath & " " & psLocalFile, AppWinStyle.Hide) Catch Err As Exception Call ErrHandler(Err.Message, APP_NAME) End Try End Sub 

 

 

 #Region "nsThread" Namespace nsThread Public Module mThread Public Sub PrintOnePDFReport(ByVal psLocalFile As String, Optional ByVal psCount As Integer = 0) Try Dim ClsThreadPrintOnePDF As New ClassThreadPrintOnePDF ClsThreadPrintOnePDF.PrintOnePDFReport_Master(psLocalFile, psCount) Catch Err As Exception Call ErrHandler(Err.Message, APP_NAME) End Try End Sub End Module End Namespace #End Region #Region " ClassThreadPrintOnePDF " Public Class ClassThreadPrintOnePDF Private msLocalFile As String = BLANK Private msCount As Integer = BLANK Public Sub PrintOnePDFReport_Master(ByVal psLocalFile As String, ByVal psCount As Integer) Try Me.msLocalFile = psLocalFile Me.msCount = psCount Dim lThread As Thread = New Thread(New ThreadStart(AddressOf Print)) lThread.Start() Catch Err As Exception Call ErrHandler(Err.Message, APP_NAME) End Try End Sub Private Sub Print() Try If msCount > 0 And msCount < 20 Then Thread.Sleep(msCount * 400) End If Call PrintOnePDFReport_Sub(msLocalFile) Catch Err As Exception Call ErrHandler(Err.Message, APP_NAME) End Try End Sub Private Sub PrintOnePDFReport_Sub(ByVal psLocalFile As String) Try Call Shell(gsPDFEXEPath & " " & psLocalFile, AppWinStyle.Hide) Catch Err As Exception Call ErrHandler(Err.Message, APP_NAME) End Try End Sub End Class #End Region

 

 

 

 

 

 

 

 

------------------

熱愛生命 喜愛新奇 有趣的事物

 

過去 是無法改變
將來 卻能夠創造

 

希望使大家生活更便利
世界更美好

 

a guy who loves IT and life