Projektdateien hinzufügen.

Aviso/frmDruck.vb

@@ -0,0 +1,60 @@
+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
+
+
+