Initial
This commit is contained in:
194
EDOKA/Drucken/clsPDFHandling.vb
Normal file
194
EDOKA/Drucken/clsPDFHandling.vb
Normal file
@@ -0,0 +1,194 @@
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Public Class clsPDFHandling
|
||||
Public Enum enum_Printtype
|
||||
PDFPrintingNet = 1
|
||||
ShowAcrobat = 2
|
||||
EDOKA_Default = 3
|
||||
End Enum
|
||||
|
||||
Public Enum Printtype
|
||||
Serienbrief = 1
|
||||
Banklagernd = 2
|
||||
Mehrfachdruck = 3
|
||||
End Enum
|
||||
|
||||
Public Enum Enum_DisplayType
|
||||
ShowAcrobat = 1
|
||||
EDOKA_Default = 2
|
||||
End Enum
|
||||
|
||||
Public Enum Enum_SimplexDuplex
|
||||
Simplex = 1
|
||||
Duplex = 2
|
||||
End Enum
|
||||
|
||||
|
||||
Dim m_Printtype_Serienbrief As enum_Printtype
|
||||
Property Printtype_Serienbrief As Integer
|
||||
Get
|
||||
Return m_Printtype_Serienbrief
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_Printtype_Serienbrief = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Printtype_Banklagernd As enum_Printtype
|
||||
Property Printtype_Banklagernd As Integer
|
||||
Get
|
||||
Return m_Printtype_Banklagernd
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_Printtype_Banklagernd = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Printtype_Mehrfachdruck As enum_Printtype
|
||||
Property Printtype_Mehrfachdruck As Integer
|
||||
Get
|
||||
Return m_Printtype_Mehrfachdruck
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_Printtype_Mehrfachdruck = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_DisplayType As Enum_DisplayType
|
||||
Property DisplayType As Integer
|
||||
Get
|
||||
Return m_DisplayType
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_DisplayType = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_PDFPrint_SimplexDuplex As Enum_SimplexDuplex
|
||||
Property PDFPrint_Simplexduplex As Integer
|
||||
Get
|
||||
Return m_PDFPrint_SimplexDuplex
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_PDFPrint_SimplexDuplex = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_PDFPrint_UseAcrobat As Boolean
|
||||
Property PDFPrint_UseAcrobat As Boolean
|
||||
Get
|
||||
Return m_PDFPrint_UseAcrobat
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
m_PDFPrint_UseAcrobat = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_scale As Integer
|
||||
Property Scale As Integer
|
||||
Get
|
||||
Return m_scale
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_scale = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim Message As String
|
||||
Dim ShowMessage As Boolean = False
|
||||
Sub New()
|
||||
get_db_params
|
||||
End Sub
|
||||
|
||||
|
||||
Sub Get_DB_params()
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.sp_Get_PDFPrint_Params"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
For Each r As DataRow In dtToReturn.Rows
|
||||
Select Case r("Eintragnr")
|
||||
Case 1
|
||||
Me.Printtype_Serienbrief = r("Beschreibung")
|
||||
Case 2
|
||||
Me.Printtype_Banklagernd = r("Beschreibung")
|
||||
Case 3
|
||||
Me.Printtype_Mehrfachdruck = r("Beschreibung")
|
||||
Case 4
|
||||
Me.DisplayType = r("Beschreibung")
|
||||
Case 5
|
||||
If r("Beschreibung") = "Simplex" Then Me.PDFPrint_Simplexduplex = Enum_SimplexDuplex.Simplex Else Me.PDFPrint_Simplexduplex = Enum_SimplexDuplex.Duplex
|
||||
Case 6
|
||||
If r("Beschreibung") = "True" Then Me.PDFPrint_UseAcrobat = True Else Me.PDFPrint_UseAcrobat = False
|
||||
Case 7
|
||||
Me.ShowMessage = r("Beschreibung") = "True"
|
||||
Case 8
|
||||
Me.Message = r("Beschreibung")
|
||||
Case 9
|
||||
Me.Scale = r("Beschreibung")
|
||||
|
||||
End Select
|
||||
Next
|
||||
Catch ex As Exception
|
||||
Throw New Exception("clsPDFHandling:Get_Print_Params::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Function ShowPDF(ByVal druckjobname As String)
|
||||
If druckjobname = "" Then Exit Function
|
||||
Dim p As New System.Diagnostics.Process
|
||||
Dim s As New System.Diagnostics.ProcessStartInfo(druckjobname)
|
||||
s.UseShellExecute = True
|
||||
s.WindowStyle = ProcessWindowStyle.Normal
|
||||
p.StartInfo = s
|
||||
p.Start()
|
||||
'Shell(druckjobname)
|
||||
End Function
|
||||
|
||||
Public Function Print_ShowPDF(ByVal druckjobname As String)
|
||||
If druckjobname = "" Then Exit Function
|
||||
If Me.ShowMessage = True Then MsgBox(Me.Message, vbInformation)
|
||||
Dim p As New System.Diagnostics.Process
|
||||
Dim s As New System.Diagnostics.ProcessStartInfo(druckjobname)
|
||||
s.UseShellExecute = True
|
||||
s.WindowStyle = ProcessWindowStyle.Normal
|
||||
p.StartInfo = s
|
||||
p.Start()
|
||||
'Shell(druckjobname)
|
||||
End Function
|
||||
|
||||
Public Function PrintPDF(ByVal Druckjobname As String, ByVal Type As Integer)
|
||||
Dim f As New frmPDFPrintDialog
|
||||
f.Show()
|
||||
f.Refresh()
|
||||
If Druckjobname = "" Then Exit Function
|
||||
Dim d As New PdfPrintingNet.PdfPrint("Stefan Hutter Unternehmensberatung", "g/4JFMjn6Kusgv2qexbT39MJftihsDgvMBvRYSjMS0XZnwOXJu1IvCSStd15H8bk0KaA3czA6F8=")
|
||||
If Me.PDFPrint_Simplexduplex = Enum_SimplexDuplex.Simplex Then
|
||||
d.DuplexType = System.Drawing.Printing.Duplex.Simplex
|
||||
Else
|
||||
d.DuplexType = System.Drawing.Printing.Duplex.Vertical
|
||||
End If
|
||||
Select Case Me.Scale
|
||||
Case 1
|
||||
d.Scale = PdfPrintingNet.PdfPrint.ScaleTypes.FitToMargins
|
||||
Case 2
|
||||
d.Scale = PdfPrintingNet.PdfPrint.ScaleTypes.None
|
||||
Case 3
|
||||
d.Scale = PdfPrintingNet.PdfPrint.ScaleTypes.Shrink
|
||||
End Select
|
||||
If Me.PDFPrint_UseAcrobat = "True" Then
|
||||
d.PrintWithAdobe(Druckjobname)
|
||||
Else
|
||||
d.Print(Druckjobname)
|
||||
End If
|
||||
f.Close()
|
||||
End Function
|
||||
End Class
|
||||
Reference in New Issue
Block a user