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