Imports System Imports System.Collections Imports System.Collections.Generic Imports System.ComponentModel Imports System.Windows.Forms Imports System.Drawing Imports Microsoft.VisualBasic Imports FastReport Imports FastReport.Data Imports FastReport.Dialog Imports FastReport.Table Imports FastReport.Barcode Imports FastReport.Utils Namespace FastReport Public Class ReportScript Private Sub Text3_AfterPrint(ByVal sender As object, ByVal e As EventArgs) Dim s As String s="" s=report.GetColumnValue("Daten.NameZ1") If report.GetColumnValue("Daten.NameZ2")<>"" s=s+vbcrlf+Report.GetColumnValue("Daten.NameZ2") End If If report.GetColumnValue("Daten.Anrede")<>"Damen und Herren" Then s=s+vbcrlf+Report.GetColumnValue("Daten.Anrede") +" "+Report.GetColumnValue("Daten.Vorname") +" "+Report.GetColumnValue("Daten.Name") End If If report.GetColumnValue("Daten.Strasse")<>"" Then s=s+vbcrlf+Report.GetColumnValue("Daten.Strasse") End If s=s+vbcrlf+Report.GetColumnValue("Daten.PLZ") + " " + Report.GetColumnValue("Daten.Ort") Text3.Text=s End Sub Private Sub Text5_BeforePrint(ByVal sender As object, ByVal e As EventArgs) if report.GetColumnValue("Daten.Anrede")="Damen und Herren" Then Text5.Text="Sehr geehrte Damen und Herren" End if if report.GetColumnValue("Daten.Anrede")="Herr" Then Text5.Text="Sehr geehrter Herr "+ Report.GetColumnValue("Daten.Name") End if if report.GetColumnValue("Daten.Anrede")="Frau" Then Text5.Text="Sehr geehrte Frau "+ Report.GetColumnValue("Daten.Name") End if End Sub Private Sub Picture1_BeforePrint(ByVal sender As object, ByVal e As EventArgs) Picture1.ImageLocation= CType(Report.GetParameterValue("URL"), String) End Sub End Class End Namespace