_ Partial Public Class rptAuswertungLandscape Inherits GrapeCity.ActiveReports.SectionReport 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then End If MyBase.Dispose(disposing) End Sub 'NOTE: The following procedure is required by the ActiveReports Designer 'It can be modified using the ActiveReports Designer. 'Do not modify it using the code editor. Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter _ Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptAuswertungLandscape)) Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture() Me.txtTitel = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() Me.subrpt = New GrapeCity.ActiveReports.SectionReportModel.SubReport() Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() Me.txtInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtTitel, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'PageHeader ' Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture1, Me.txtTitel, Me.txtUeberschrift, Me.ReportInfo2}) Me.PageHeader.Height = 1.020702! Me.PageHeader.Name = "PageHeader" ' 'Picture1 ' Me.Picture1.Height = 0.5905511! Me.Picture1.HyperLink = Nothing Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream) Me.Picture1.Left = 0! Me.Picture1.Name = "Picture1" Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom Me.Picture1.Top = 0! Me.Picture1.Width = 2.551969! ' 'txtTitel ' Me.txtTitel.Height = 0.2! Me.txtTitel.Left = 6.62441! Me.txtTitel.Name = "txtTitel" Me.txtTitel.Style = "font-size: 9.75pt; font-weight: bold; text-align: right" Me.txtTitel.Text = "txtTitel" Me.txtTitel.Top = 0.3905512! Me.txtTitel.Width = 4.438583! ' 'txtUeberschrift ' Me.txtUeberschrift.Height = 0.3937007! Me.txtUeberschrift.Left = 0! Me.txtUeberschrift.Name = "txtUeberschrift" Me.txtUeberschrift.Style = "font-size: 18pt; font-weight: bold; text-align: center" Me.txtUeberschrift.Text = "Auswertung Vorkosten / Rechnungen" Me.txtUeberschrift.Top = 0.5905512! Me.txtUeberschrift.Width = 11.06299! ' 'Detail ' Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.subrpt}) Me.Detail.Height = 0.7708333! Me.Detail.Name = "Detail" ' 'subrpt ' Me.subrpt.CloseBorder = False Me.subrpt.Height = 0.6874016! Me.subrpt.Left = 0! Me.subrpt.Name = "subrpt" Me.subrpt.Report = Nothing Me.subrpt.ReportName = "subrpt" Me.subrpt.Top = 0! Me.subrpt.Width = 11.06299! ' 'PageFooter ' Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.txtInfo}) Me.PageFooter.Height = 0.1979167! Me.PageFooter.Name = "PageFooter" ' 'ReportInfo1 ' Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount}" Me.ReportInfo1.Height = 0.2! Me.ReportInfo1.Left = 7.104725! Me.ReportInfo1.Name = "ReportInfo1" Me.ReportInfo1.Style = "text-align: right" Me.ReportInfo1.Top = 0! Me.ReportInfo1.Width = 3.958268! ' 'txtInfo ' Me.txtInfo.Height = 0.2! Me.txtInfo.Left = 0! Me.txtInfo.Name = "txtInfo" Me.txtInfo.Text = "txtInfo" Me.txtInfo.Top = 0! Me.txtInfo.Width = 4.141734! ' 'ReportInfo2 ' Me.ReportInfo2.FormatString = "{RunDateTime:dd/MM/yyyy}" Me.ReportInfo2.Height = 0.2! Me.ReportInfo2.Left = 10.06299! Me.ReportInfo2.Name = "ReportInfo2" Me.ReportInfo2.Style = "" Me.ReportInfo2.Top = 0! Me.ReportInfo2.Width = 1.0! ' 'rptAuswertungLandscape ' Me.MasterReport = False Me.PageSettings.Margins.Bottom = 0.3149606! Me.PageSettings.Margins.Left = 0.3149606! Me.PageSettings.Margins.Right = 0.3149606! Me.PageSettings.Margins.Top = 0.3149606! Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape Me.PageSettings.PaperHeight = 11.0! Me.PageSettings.PaperWidth = 8.5! Me.PrintWidth = 11.06299! Me.Sections.Add(Me.PageHeader) Me.Sections.Add(Me.Detail) Me.Sections.Add(Me.PageFooter) Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal")) Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal")) Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & "lic", "Heading2", "Normal")) Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtTitel, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub Private WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture Private WithEvents txtTitel As GrapeCity.ActiveReports.SectionReportModel.TextBox Private WithEvents txtUeberschrift As GrapeCity.ActiveReports.SectionReportModel.TextBox Private WithEvents subrpt As GrapeCity.ActiveReports.SectionReportModel.SubReport Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo Private WithEvents txtInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox Private WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo End Class