Textbox Drucken

[enigma (alfred Kleinitzke)]

Hallo nochmal
Ich habe das mit der Rechnung hinbekommen, (Schwere Geburt)
Aber eine Frage hätte ich da noch.
Ich habe LL auf form2 erstellt
nun möchte ich auf einem leeren LL dokument den Inhalt einer Textbox anzeigen und Ausdrucken lassen.
z.b. Form1.Textbox1.Bezeichnung.text
Wenn ich eine Textbox auf das Formular ziehe geht gleich die Seite mit den Funktionen auf.
was ich dort eingeben muss weiss ich leider nicht
vielleicht weiss jemand wie es funktioniert
vielen Dank im Vorraus.

[mlitkin (combit Support - Martin Litkin)]

Sehr geehrter Herr Kleinitzke,

wenn Sie eine Variable in C# oder in anderen Programmiersprache in List & Label anmelden möchten, so steht Ihnen die Funktion

LL.Variables.Add()

zur Verfügung. Vor dem Aufruf des Designers muss mit dieser Funktion, der Inhalt der Textbox an List & Label übergeben werden.

Weitere Informationen finden Sie hier:

Beeinflussung von Feldern / Variablen im datengebundenen Modus

Gilt ab List & Label 10 Beim datengebundenen Modus brauchen Sie sich normalerweise nicht mehr um die Anmeldung von Feldern bzw. Variablen kümmern. Diese werden automatisch der Datenquelle, welche Sie mit der Methode "SetDatabinding()" angeben können, entnommen und an List & Label übergeben. Sofern Sie aber weitere Felder bzw. Variablen benötigen oder Einfluss auf die übergebenen Felder/Variablen nehmen möchten, bieten die Databinding-Komponenten für .NET und Delphi/C++Builder (FireDAC und BDE (…

sowie im Handbuch:

Zusätzliche Inhalte an List & Label übergeben

Mit freundlichen Grüßen aus Konstanz

[enigma (alfred Kleinitzke)]

Hallo
vielen Dank für die freundliche Auskunft.
Vom Prinzip her habe ich es schon verstanden aber mit der Ausführung da hapert es gewaltig
Ich hab mal den code vom Designer angehangen. Vielleicht ist es Ihnen ja möglich den Code
mit demm Adden zu ergänzen. Ich habe hier “vb.net” . Wo muss dieser Addcode stehen
Haben sie ein Beispiel für eine ganz normale Textbox??
vielen Dank für Ihr Verständnis

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms

'
Imports combit.Reporting
Imports combit.Reporting.DataProviders

Public Partial Class ListLabel27Report1
    Inherits Form
    Public Sub New()
        InitializeComponent()

    End Sub




    Private Sub BtnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrint.Click
        Try
            ' we need to 'free' the displayed preview file from preview control and detach the preview control from the List & Label component
            previewControl.FileName = String.Empty
            LL.PreviewControl = Nothing

            LL.AutoShowPrintOptions = True
            LL.AutoDestination = LlPrintMode.Export
            LL.Print()
        Catch exc As ListLabelException
            MessageBox.Show(exc.Message, exc.Source, MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub

    Private Sub BtnDesign_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDesign.Click
        Try
            LL.Design()
        Catch exc As ListLabelException
            MessageBox.Show(exc.Message, exc.Source, MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub

    Private Sub BtnExportTo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExportTo.Click
        Try
            ' show FileOpenDialog to select the List & Label project file
            Using openFileDlg As New OpenFileDialog()
                openFileDlg.CheckFileExists = True
                openFileDlg.CheckPathExists = True
                openFileDlg.Filter = "Listenprojekt (*.lst)|*.lst"
                If openFileDlg.ShowDialog() = DialogResult.OK Then
                    ' prepare the export parameters
                    Dim projectFileName As String = openFileDlg.FileName
                    Dim exportFileName As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), "export.pdf")

                    Dim exportTarget As LlExportTarget = LlExportTarget.Pdf
                    ' here you can specify other formats e.g. Xlsx
                    Dim exportConfiguration As New ExportConfiguration(exportTarget, exportFileName, projectFileName) With {
                        .ShowResult = True ' without any interaction set this property to false
                    }

                    ' start exporting
                    LL.Export(exportConfiguration)
                End If
            End Using
        Catch exc As ListLabelException
            MessageBox.Show(exc.Message, exc.Source, MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub

    Private Sub BtnPrintToPreviewControl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrintToPreviewControl.Click
        Try
            ' we need to assign the preview control to the List & Label component to print directly into the preview control.
            If LL.PreviewControl Is Nothing Then
                LL.PreviewControl = previewControl
            End If

            LL.AutoShowPrintOptions = False
            LL.AutoDestination = LlPrintMode.PreviewControl
            LL.Print()
        Catch exc As ListLabelException
            MessageBox.Show(exc.Message, exc.Source, MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub
End Class

[mlitkin (combit Support - Martin Litkin)]

Sehr geehrter Herr Kleinitzke,

Sie müssen LL.Variables.Add() lediglich vor dem Aufruf von LL.Print() bzw. vor dem Aufruf des Designers via LL.Design() setzen. Der Beispielcode würde wie folgt aussehen:

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms

'
Imports combit.Reporting
Imports combit.Reporting.DataProviders

Public Partial Class ListLabel27Report1
    Inherits Form
    Public Sub New()
        InitializeComponent()

    End Sub




    Private Sub BtnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrint.Click
        Try
            ' we need to 'free' the displayed preview file from preview control and detach the preview control from the List & Label component
            previewControl.FileName = String.Empty
            LL.PreviewControl = Nothing

            LL.AutoShowPrintOptions = True
            LL.AutoDestination = LlPrintMode.Export
            LL.Variables.Add("Zusatzdaten.Projektname", GetCurrentProjectName());
            LL.Print()
        Catch exc As ListLabelException
            MessageBox.Show(exc.Message, exc.Source, MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub

    Private Sub BtnDesign_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDesign.Click
        Try
            LL.Variables.Add("Zusatzdaten.Projektname", GetCurrentProjectName());
            LL.Design()
        Catch exc As ListLabelException
            MessageBox.Show(exc.Message, exc.Source, MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub

    Private Sub BtnExportTo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExportTo.Click
        Try
            ' show FileOpenDialog to select the List & Label project file
            Using openFileDlg As New OpenFileDialog()
                openFileDlg.CheckFileExists = True
                openFileDlg.CheckPathExists = True
                openFileDlg.Filter = "Listenprojekt (*.lst)|*.lst"
                If openFileDlg.ShowDialog() = DialogResult.OK Then
                    ' prepare the export parameters
                    Dim projectFileName As String = openFileDlg.FileName
                    Dim exportFileName As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), "export.pdf")

                    Dim exportTarget As LlExportTarget = LlExportTarget.Pdf
                    ' here you can specify other formats e.g. Xlsx
                    Dim exportConfiguration As New ExportConfiguration(exportTarget, exportFileName, projectFileName) With {
                        .ShowResult = True ' without any interaction set this property to false
                    }

                    ' start exporting
                    LL.Export(exportConfiguration)
                End If
            End Using
        Catch exc As ListLabelException
            MessageBox.Show(exc.Message, exc.Source, MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub

    Private Sub BtnPrintToPreviewControl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrintToPreviewControl.Click
        Try
            ' we need to assign the preview control to the List & Label component to print directly into the preview control.
            If LL.PreviewControl Is Nothing Then
                LL.PreviewControl = previewControl
            End If

            LL.AutoShowPrintOptions = False
            LL.AutoDestination = LlPrintMode.PreviewControl
            LL.Variables.Add("Zusatzdaten.Projektname", GetCurrentProjectName());
            LL.Print()
        Catch exc As ListLabelException
            MessageBox.Show(exc.Message, exc.Source, MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try
    End Sub
End Class

Mit freundlichen Grüßen

[enigma (alfred Kleinitzke)]

Suuper das hat geklappt
Bitte den neuen Post löschen, Ich nehme alles zurück und behaupte das Gegenteil

vielen Dank für die wertvolle Info
2 Tage habe ich versucht den code zu plazieren und immer etwas andres, diese möglichkeit hatte ich noch nicht getestet

nochmals vielen dank
MFG
A Kleinitzke