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 txtZwischentotal_BeforePrint(ByVal sender As object, ByVal e As EventArgs) dim p as Int32 dim tp as Int32 p= Report.getvariablevalue("Page") tp=Report.GetVariableValue("TotalPages") If p=tp Then txtzwischentotal.Visible=false zwischentotal.Visible=false Referenzzeile.Visible=false end if End Sub End Class End Namespace