74 lines
2.8 KiB
VB.net
74 lines
2.8 KiB
VB.net
Public Class frmPrintActiveReports
|
|
|
|
Property DruckArt As String = ""
|
|
Property DHCPAndrucken As Boolean = False
|
|
Public dt As DataTable
|
|
|
|
Private Sub tsbPDF_Click(sender As Object, e As EventArgs)
|
|
'Dim Dateiname As String
|
|
Dim savefiledialog As New SaveFileDialog
|
|
savefiledialog.Filter = "PDF files (*.pdf)|*.PDF"
|
|
savefiledialog.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
|
|
savefiledialog.ShowDialog()
|
|
|
|
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
|
|
If savefiledialog.FileName <> "" Then p.Export(Viewer1.Document, savefiledialog.FileName)
|
|
|
|
If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName)
|
|
End Sub
|
|
|
|
Private Sub tsbEX_Click(sender As Object, e As EventArgs)
|
|
'Dim Dateiname As String
|
|
Dim savefiledialog As New SaveFileDialog
|
|
savefiledialog.Filter = "Excel files (*.xls)|*.xls"
|
|
savefiledialog.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
|
|
savefiledialog.ShowDialog()
|
|
|
|
Dim p As New GrapeCity.ActiveReports.Export.Excel.Section.XlsExport
|
|
If savefiledialog.FileName <> "" Then p.Export(Viewer1.Document, savefiledialog.FileName)
|
|
|
|
If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName)
|
|
End Sub
|
|
|
|
Private Sub frmPrintActiveReports_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Dim tsbPDF As New ToolStripButton("PDF")
|
|
tsbPDF.Image = My.Resources.pdf512
|
|
Viewer1.Toolbar.MainBar.Items.Insert(5, tsbPDF)
|
|
|
|
AddHandler tsbPDF.Click, AddressOf tsbPDF_Click
|
|
|
|
Dim tsbEX As New ToolStripButton("Excel")
|
|
tsbEX.Image = My.Resources.excel20
|
|
Viewer1.Toolbar.MainBar.Items.Insert(5, tsbEX)
|
|
|
|
AddHandler tsbEX.Click, AddressOf tsbEX_Click
|
|
|
|
Print()
|
|
End Sub
|
|
|
|
Private Sub Print()
|
|
|
|
Select Case DruckArt
|
|
Case "HostListe"
|
|
Dim Report As New rptHostListe
|
|
Report.dt = Me.dt
|
|
Report.DHCPAndrucken = Me.DHCPAndrucken
|
|
Viewer1.LoadDocument(Report)
|
|
Case "HostCheckListe"
|
|
Dim Report As New rptHostCheckListe
|
|
Report.dt = Me.dt
|
|
Report.DHCPAndrucken = Me.DHCPAndrucken
|
|
Viewer1.LoadDocument(Report)
|
|
Case "HostListeMitZugangsdaten"
|
|
Dim Report As New rptHostListeMitZugangsdaten
|
|
Report.dt = Me.dt
|
|
Report.DHCPAndrucken = Me.DHCPAndrucken
|
|
Viewer1.LoadDocument(Report)
|
|
Case "Manuell"
|
|
Dim Report As New rptLeer
|
|
Report.dt = Me.dt
|
|
Viewer1.LoadDocument(Report)
|
|
End Select
|
|
|
|
End Sub
|
|
End Class |