61 lines
2.4 KiB
VB.net
61 lines
2.4 KiB
VB.net
Imports GrapeCity.ActiveReports
|
|
'Imports GrapeCity.ActiveReports.SectionReportModel
|
|
Imports System.Windows.Forms
|
|
Imports Gemeinsames
|
|
|
|
Public Class frmDruck
|
|
Private ReadOnly report As SectionReport
|
|
|
|
Private WithEvents exportMenu As ToolStripMenuItem = New ToolStripMenuItem("Export")
|
|
|
|
Public Sub New(ByVal report As SectionReport)
|
|
|
|
' This call is required by the designer.
|
|
InitializeComponent()
|
|
|
|
' Add any initialization after the InitializeComponent() call.
|
|
Me.report = report
|
|
|
|
Viewer1.Toolbar.ToolStrip.Items.Add(exportMenu)
|
|
|
|
'Hilfstexte in Toolbar eindeutschen
|
|
Viewer1.Toolbar.ToolStrip.Items(0).ToolTipText = "Seitenübersicht"
|
|
Viewer1.Toolbar.ToolStrip.Items(2).ToolTipText = "Drucken"
|
|
Viewer1.Toolbar.ToolStrip.Items(5).ToolTipText = "Kopieren"
|
|
Viewer1.Toolbar.ToolStrip.Items(6).ToolTipText = "Suchen"
|
|
Viewer1.Toolbar.ToolStrip.Items(10).ToolTipText = "aktueller Zoom"
|
|
Viewer1.Toolbar.ToolStrip.Items(12).ToolTipText = "an Fensterbreite anpassen"
|
|
Viewer1.Toolbar.ToolStrip.Items(13).ToolTipText = "vollständige Seite an Fenstergröße anpassen"
|
|
Viewer1.Toolbar.ToolStrip.Items(15).ToolTipText = "Einzelseitenansicht"
|
|
Viewer1.Toolbar.ToolStrip.Items(16).ToolTipText = "Bildlauf aktivieren"
|
|
Viewer1.Toolbar.ToolStrip.Items(17).ToolTipText = "Mehrseiten-Ansicht"
|
|
Viewer1.Toolbar.ToolStrip.Items(19).ToolTipText = "erste Seite"
|
|
Viewer1.Toolbar.ToolStrip.Items(20).ToolTipText = "vorige Seite"
|
|
Viewer1.Toolbar.ToolStrip.Items(21).ToolTipText = "aktuelle Seite"
|
|
Viewer1.Toolbar.ToolStrip.Items(22).ToolTipText = "nächste Seite"
|
|
Viewer1.Toolbar.ToolStrip.Items(23).ToolTipText = "letzte Seite"
|
|
Viewer1.Toolbar.ToolStrip.Items(25).ToolTipText = "Sprung rückwärts"
|
|
Viewer1.Toolbar.ToolStrip.Items(26).ToolTipText = "Sprung vorwärts"
|
|
Viewer1.Toolbar.ToolStrip.Items(30).ToolTipText = "Anzeige refreshen"
|
|
Viewer1.Toolbar.ToolStrip.Items(33).ToolTipText = "Ansicht-Modus"
|
|
Viewer1.Toolbar.ToolStrip.Items(34).ToolTipText = "Textauswahl-Modus"
|
|
Viewer1.Toolbar.ToolStrip.Items(35).ToolTipText = "Schnappschuss erstellen"
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub frmARViewer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Viewer1.LoadDocument(report)
|
|
End Sub
|
|
|
|
Private Sub exportMenu_Click(sender As Object, e As EventArgs) Handles exportMenu.Click
|
|
Gemeinsames.cReportExportierer.Exportieren(Viewer1.Document, report.Name)
|
|
End Sub
|
|
|
|
|
|
|
|
End Class
|
|
|
|
|
|
|