Beiträge von De Rand Ere

De Rand Ere

... ich habs verstanden...
Besten Dank

De Rand Ere

Hallo zusammen und Danke für die Antworten, auf die ich gerne eingehen möchte.

Ich bin Autodidakt und so sehen auch meine Script's aus. Sehr chaotisch und ich glaube recht schwer verständlich - auch wenn Ihr darin geübt seid. Ich wollte Euch nicht dieses Durchfitzen auflasten.

Zitat

1. Frage: Wo kommen diese Pfadangaben her? Du musst ja irgendwo definieren welche Ordner bearbeitet werden.

Die Pfadangaben erzeuge ich mit "_RecursiveFileListToArray" (Danke an den Autor). Ich muß sie nachbehandeln, um die Vorgaben des Zip-CLI zu entsprechen. Das Problem waren anfangs die Leerzeichen in den Ordner- und Dateinamen.

Zitat

Wenn es nur der Aufruf ist - warum dann RunWait und nicht Run()? Mit letzterem hättest du nämlich deine Parallelität.

Ich nutzte "RunWait" da es sich um ca. 1500 Verzeichnisse, mehreren 100.000 Dateien oder grob 2 TB Datenvolumen handelte. Mit "Run" würde meine WinDose einschlafen und diese unkontrollierte Aktion würde sehr lange dauern. Mir war wichtig das Zippen zu automatisieren und dazu schrieb ich ein lineares Script. Später kam mir der Gedanke zur kontrollierten parallelen Verarbeitung. Das versuch ich jetzt. Um den ZipProzess selbst werden noch einige statistische Daten und die Zeitvorschau berechnet (wann fertig). Mir geht es um die Kontrolle wie viele Prozesses gestartet werden.

Zitat

Während in Autoit " und ' meist alternativ zu verwenden sind, ist bei Export nach DOS " <>'.

D.H. Du musst dafür sorgen, dass die " in Dos ankommen. DOS mag keine '

Danke für diese Hinweis - war mir bis jetzt nicht bekannt ..

Und nein ich möchte nicht das mir jemand ein Scirpt schreibt. Wie oben erwähnt - Autodidakt - ich will das selbst in die Tastatur hämmern. Das macht mir Spaß das Tüfteln, egal was Andere sagen ... learning by doing

Fazit:

Wenn ich im bereits lauffähigen Script mit "Run" arbeiten möchte, müßte ich also über eine Schleife die Anzahl der ZipAufrufe steuern. Über die Id des Prozesses könnte das bestimmt gehen.

Sehe ich das richtig ?

Den ganzen andern Krempel könnte ich mir sparen....

De Rand Ere

Hallo zusammen,
ich habe mir ein Skript erstellt, das in einem Ordner alle Unterordner in separate ZipDateien packt, diese in diesem Ordner ablegt und die "alten" Ordner löscht. Alles gut - alles hübsch.... Dazu nutze ich einen externen Packer über CLI (Command Line Interface) mit "RunWait"
Das läuft nun linear - also Ordner 1 bis Ordner 67 wird durchgehackt ...

Geht ja aber auch parallel - Ich könnte also ein Hauptprogramm (zur Verwaltung) starten und aus diesem heraus das ZipProgramm mit Übergabe der Parameter starten und das auf 3 bis 5 Prozesse begrenzen, je nach Rechnerleistung.

Daran teste ich nun schon ein paar Tage. Die Übergabe der Parameter ist aber sehr schwierig, da sehr lang und mit Leerzeichen behaftet. Hier mal als Beispiel ein Aufruf: "Zip.exe u -r -m1 -ep4 "_Hörbuch\_TestArchiv-2" "F:\_Hörbuch\_TestArchiv-2\Agatha Christie - 24 Schwarzdrosseln.zip" "F:\_Hörbuch\_TestArchiv-2\Agatha Christie - 24 Schwarzdrosseln\*"

Über das $cmdLine - Array diese Parameter zu übertragen ist sehr schwieg, da der Einsatz der Zeichen ", ' und chr(34) in Variablen verpackt ganz eigenartige Ergebnisse erzeugt. Den immer gleichen Aufruf "Zip.exe u -r -m1 -ep4 " hab ich nun in einen Umgebungsvariable geschoben und brauche ihn nicht mehr im Aufruf übertragen. Ich hoffe, daß ich die Situation verständlich beschrieben habe....
Ich will nun die Parameterdaten in ein Array schreiben.
Und jetzt kommt meine Frage:

Kann ich im "Hauptprogramm" ein Array ($aParameter) erzeugen, 3 ZipProgramme (Call...-Aufruf) ausführen und von diesen auf das Array $aParameter zugreifen? Also kann ich ein Array "Über - global" stellen damit mehrere zugreifen können?

Ich könnte auch das Array in eine TXT schreiben und so die Daten übertragen... Aber geht es kürzer ????

Vorab vielen Dank

De Rand Ere

BugFix : Ja danke - mach mal ist man im Kopf wie vernagelt! Nach vorne schaun, die Lösung suchen - aber die Ursache nicht prüfen... danke

Das habe ich nun getan. Es liegt nicht an dem Script des "Herr Mendelson von der Columbia (PDFtoPrinter)". 95% dieses Scripts sind Fehlerprüfung - das brauch ich nicht, da ich den Programmaufruf exakt definieren und testen kann. Somit habe ich das Programm (PDFXcView) direkt angesprochen . Die Software arbeitet super bis zum zweiten Aufruf. Die Änderung der Einstellungen des Programms und der spezielle Import dieser - brachte auch nichts. Ich habe keine Lösung finden können. Selbst aus der DOS-Ebene heraus mit der direkten Ansprache der Software und Wiederholung des Befehls tritt der Fehler auf. Ursache ist also " PDFXcView" und dessen Speicherverwaltung ... Die Software ist gut - leider nicht geeignet für meine Anwendung. Da ich nun schon ganz paar Tage an diesem Problem rumdoktere, habe ich heute SumatraPDF implementiert. Also "nur" die EXE und die Befehlsoptionen angepasst - und es funktioniert - 2 Seiten bleiben 2 Seite , auch nach 10x aufrufen.

Etwas nachteilig sind die etwa 10x größeren Druck-Dateien die durch SumantarPdf erzeugt werde ...

Ich danke allen, die sich irgendwie Gedanken gemacht haben ...

Das Thema ist erledigt.

De Rand Ere

Hallo noch mal zusammen,

ich hab nun mal einen „Rahmen“ um die Tabellenfunktion gebastelt. Somit könnt ihr das Problem besser nachvollziehen. Dabei habe ich festgestellt, daß das Problem nicht von der MPDF.au3 sondern von der PDFtoPrinter.exe kommt.

Spoiler anzeigen

C

#include-once
#include <Array.au3>
#include <ButtonConstants.au3>
#include <File.au3>
#include <FileConstants.au3>
#include <GUIConstantsEx.au3>
#include <MPDF_UDF.au3>
#include <WindowsConstants.au3>

Global $aPakete[100][7]
Global $vLaenge_PaketListe = 100, $idPaketListe

For $I = 0 To 99
    $aPakete[$I][0] = "1234567890123456"
    $aPakete[$I][1] = "Max Tutldö" & $I
    $aPakete[$I][2] = "12"
    $aPakete[$I][3] = "3"
    $aPakete[$I][4] = "01.10.1732"
    $aPakete[$I][5] = "09.10.1732"
    $aPakete[$I][6] = "05.10.1732"

Next

;~ _ArrayDisplay($aPakete)

$hGui = GUICreate("PRN-Test", 600, 600)

    $vDrucken = GUICtrlCreateButton("Drucken",50,50,100,40)
    $vBeenden = GUICtrlCreateButton("Exit",50,100,100,40)

GUISetState(@SW_SHOW, $hGui)

While 1
    Switch GUIGetMsg()
        Case $vDrucken
            _Liste_drucken($aPakete,1, 0, 1) ; Druck ohne Ansicht
;~             _Liste_drucken($aPakete,1, 1, 1) ; Druck mit Ansicht
        Case $vBeenden
            Exit
    EndSwitch
WEnd


Func _Liste_drucken($aDBank, $iListe, $vV, $vP)

     Local $vTabellenName, $vSpalte1_Kopf, $vSpalte2_Kopf, $vSpalte3_Kopf, $vSpalte4_Kopf, $vSpalte5_Kopf, $vSpalte6_Kopf, $vSpalte6_Kopf
    Global $vLogDateiName
    If $iListe > 2 Then $vLogDateiName = StringTrimRight($vLogDateiName,5)

 ;setze die PDF - HeaderEinträge
    _SetTitle("Listen Druck")
    _SetSubject("Firma")
    _SetKeywords("")
    _OpenAfter($vV) ;open after generation
    _SetUnit($PDF_UNIT_CM)
    _SetPaperSize("A4")
    _SetZoomMode($PDF_ZOOM_CUSTOM, 100)
    _SetOrientation($PDF_ORIENTATION_PORTRAIT)
    _SetLayoutMode($PDF_LAYOUT_CONTINOUS)

    ;initialize the pdf
    Local $vPDFDatei = "\etc\Listendruck_" & @MIN & "-" & @SEC &".pdf"
    _InitPDF(@ScriptDir & $vPDFDatei)
    _LoadFontTT("F1", $PDF_FONT_TIMES,$PDF_FONT_BOLDITALIC)
    _LoadFontTT("_Calibri", $PDF_FONT_CALIBRI)
    _SetColourFill(0x000000)
    _SetColourStrokE(0x000000)

    Local $vTxtUnterkante = 26.5 ; Unterkante der Texte in der kopfzeile

    Local $vTabellenZeilen = $vLaenge_PaketListe    ; Anzahl der gesamten Zeileneinträge in der Tabelle. Auf eine Seite passen 45 Zeilen.
    Local $vZeilen = 45            ; Zeilen, die auf eine Seite passen
    Local $vSeiten = Round(Int($vTabellenZeilen / 45)) + 1 ;notwendige Seiten berechnen
    Local $vStartNumTab = 0
    If $vTabellenZeilen < $vZeilen Then
        $vZeilen = $vTabellenZeilen
    EndIf
    Local $vEndeNumTab = $vZeilen
    ConsoleWrite("TabZeilen: " & $vTabellenZeilen & " - Seiten: " & $vSeiten & @CR)
    For $J = 1 to $vSeiten

        _BeginPage()

            $vSpalte1_Kopf = "EAN - Code"
            $vSpalte2_Kopf = "Name des Empfängers"
            $vSpalte3_Kopf = "Lagerfach"
            $vSpalte4_Kopf = "lfd Nummer"
            $vSpalte5_Kopf = "Zulauf"
            $vSpalte6_Kopf = "Rücksendung"; Bezeichnung ???? eventuell Daten des Zulaufs ... unklar ....
            $vSpalte7_Kopf = "gebucht"

            _Draw_Rectangle(1.5, 26.3, 18.3, 2, $PDF_STYLE_STROKED, 0, 0xefefef, 0.05) ; Rahmen Tabellenkopf

            Switch $iListe
                Case 1
                    ;Tabellenkopf zusammenstellen
                    $vTabellenName = "Paketbestandsliste vom " & @MDAY&"."&@MON&"."&@YEAR&" - "&@HOUR&":"&@MIN&":"&@SEC & " Uhr"

                    _DrawText( 19.8, 28.5, $vTabellenName, "F1", 14, $PDF_ALIGN_RIGHT) ; TabellenName
                    _DrawText( 03.2, $vTxtUnterkante, $vSpalte1_Kopf, "_Calibri", 10, $PDF_ALIGN_CENTER); Spalte1_Kopf
                    _DrawText( 05.0, $vTxtUnterkante, $vSpalte2_Kopf, "_Calibri", 10, $PDF_ALIGN_LEFT); Spalte2_Kopf
                    _DrawText( 13.5, $vTxtUnterkante, $vSpalte3_Kopf, "_Calibri", 10, $PDF_ALIGN_LEFT,90) ; Spalte3_Kopf
                    _DrawText( 14.3, $vTxtUnterkante, $vSpalte4_Kopf, "_Calibri", 9, $PDF_ALIGN_LEFT,90) ; Spalte4_Kopf
                    _DrawText( 15.5,$vTxtUnterkante + 0.5, "Datum", "_Calibri", 10, $PDF_ALIGN_CENTER) ; Spalte5_Kopf - 1. Zeile
                    _DrawText( 15.5, $vTxtUnterkante, $vSpalte5_Kopf, "_Calibri", 10, $PDF_ALIGN_CENTER) ; Spalte5_Kopf - 2. Zeile
                    _DrawText( 17.8, $vTxtUnterkante + 0.5, "Datum", "_Calibri", 10, $PDF_ALIGN_CENTER) ; Spalte6_Kopf - 1. Zeile
                    _DrawText( 17.8, $vTxtUnterkante, $vSpalte6_Kopf, "_Calibri", 10, $PDF_ALIGN_CENTER) ; Spalte6_Kopf - 2. Zeile
                    _DrawText( 19.5, $vTxtUnterkante, "Check", "_Calibri", 10, $PDF_ALIGN_LEFT,90) ;

                    local $vXSpalte_1 = 01.5 ; Definition der Spaltenlinien X-Achse
                    local $vXSpalte_2 = 04.8
                    local $vXSpalte_3 = 13.0
                    local $vXSpalte_4 = 13.8
                    local $vXSpalte_5 = 14.5
                    local $vXSpalte_6 = 16.7
                    local $vXSpalte_7 = 19.0
                    local $vXSpalte_8 = 19.8

                    Local $vXTxtSpalte_1 = 03.2 ; Definition des Textbegin X-Achse
                    local $vXTxtSpalte_2 = 05.0
                    local $vXTxtSpalte_3 = 13.4
                    local $vXTxtSpalte_4 = 14.2
                    local $vXTxtSpalte_5 = 15.6
                    local $vXTxtSpalte_6 = 17.9

                    $vTabStartY  = 25.8
                    $Y = -0.2

                    For $I = $vStartNumTab to $vEndeNumTab - 1
                        $vEmpfaenger = $aDBank[$I][1]
                            If StringLen($vEmpfaenger)>= 50 Then
                                $vEmpfaenger = StringLeft($vEmpfaenger,47) & "..."
                            EndIf
;~                     ConsoleWrite("Case 2 - $vEmpfaenger: " & $vEmpfaenger & @CR)
                        _DrawText( $vXSpalte_1 -0.1, $vTabStartY , $I + 1, "_Calibri", 6, $PDF_ALIGN_RIGHT)
                        _DrawText( $vXTxtSpalte_1, $vTabStartY , $aPakete[$I][0], "_Calibri", 10, $PDF_ALIGN_CENTER)
                        _DrawText( $vXTxtSpalte_2, $vTabStartY , $vEmpfaenger, "_Calibri", 10, $PDF_ALIGN_LEFT) ; max 43 Zeichen
                        _DrawText( $vXTxtSpalte_3, $vTabStartY , $aDBank[$I][2], "_Calibri", 10, $PDF_ALIGN_CENTER)
                        _DrawText( $vXTxtSpalte_4, $vTabStartY , $aDBank[$I][3], "_Calibri", 10, $PDF_ALIGN_CENTER)
                        _DrawText( $vXTxtSpalte_5, $vTabStartY , $aDBank[$I][4], "_Calibri", 10, $PDF_ALIGN_CENTER)
                        _DrawText( $vXTxtSpalte_6, $vTabStartY , $aDBank[$I][5], "_Calibri", 10, $PDF_ALIGN_CENTER)
                        _DrawLine($vXSpalte_1,$vTabStartY - 0.15,19.8,$vTabStartY + $Y, $PDF_STYLE_STROKED, 0, 0,0.05)
                        $vTabStartY += -0.55
                    Next
                Case 2
        EndSwitch

            $vTabStartY += 0.55 - 0.1 ; Zeile berechnen
;~             senkrechte Linien zeichnen
            Local $vLinienEnde = 26.3 - 2 -$vZeilen * 0.415
            _DrawLine($vXSpalte_1,$vTabStartY,$vXSpalte_1,28.3, $PDF_STYLE_STROKED, 0, 0,0.05)
            _DrawLine($vXSpalte_2,$vTabStartY,$vXSpalte_2,28.3, $PDF_STYLE_STROKED, 0, 0,0.05)
            _DrawLine($vXSpalte_3,$vTabStartY,$vXSpalte_3,28.3, $PDF_STYLE_STROKED, 0, 0,0.05)
            _DrawLine($vXSpalte_4,$vTabStartY,$vXSpalte_4,28.3, $PDF_STYLE_STROKED, 0, 0,0.05)
            _DrawLine($vXSpalte_5,$vTabStartY,$vXSpalte_5,28.3, $PDF_STYLE_STROKED, 0, 0,0.05)
            _DrawLine($vXSpalte_6,$vTabStartY,$vXSpalte_6,28.3, $PDF_STYLE_STROKED, 0, 0,0.05)
            _DrawLine($vXSpalte_7,$vTabStartY,$vXSpalte_7,28.3, $PDF_STYLE_STROKED, 0, 0,0.05)
            _DrawLine($vXSpalte_8,$vTabStartY,$vXSpalte_8,28.3, $PDF_STYLE_STROKED, 0, 0,0.05)
            _DrawText( 19.8, 1, "Seite "& $J & " von " & $vSeiten, "_Calibri", 10, $PDF_ALIGN_RIGHT) ; Fußzeile
        _EndPage()     ;write the buffer to disk

        If $vEndeNumTab < $vTabellenZeilen Then
            $vStartNumTab = $vEndeNumTab ;+ 1
            If $vStartNumTab + 45 >= $vTabellenZeilen Then
                $vEndeNumTab = $vTabellenZeilen
            Else
                $vEndeNumTab = $vStartNumTab + 45
            EndIf
        EndIf
    Next
    _ClosePDFFile()
    $_Pages = 0 ; Seitenzahl in der MPDF.au3 wieder auf '0' setzen

;~     autoDruckfunktion aktivieren/deaktivieren
    If $vP = True Then
        ;Ausdruck mit Acrobat
;~         $vArcobat = ShellExecute(@ScriptDir & $vPDFDatei,"","","print",@SW_HIDE)
;~             Sleep(10000)
;~             ProcessClose($vArcobat)
        ;Ausdruck mit PDFtoPrinter
        Local $vProgramm = @ScriptDir & "\PDFtoPrinter.exe " & @ScriptDir & $vPDFDatei
        $idAcrobat = RunWait($vProgramm, "", "")

    EndIf
    EndFunc

Alles anzeigen

Spoiler

Es wird also eine Tabelle mit 100 Einträgen erstellt. Das ergibt ein Dokument mit 3 Seiten. Nutze ich bei Zeile 179 den ShellExecute – Befehl zum Drucken wird die Tabelle ordentlich im Acrobat angezeigt und in der Warteschlange (Drucker angehalten) wird immer ein 3-seitiges Dokument angezeigt – auch bei mehrfacher Wiederholung. Benutze ich zum Drucken die PDFtoPrinter-Funktion wird die Tabelle richtig angezeigt aber in der Warteschlange steigt die Seitenzahl des Dokuments bei jeder Wiederholung um 3 Seiten, also 3 -6 – 9 usw.

Der Fehler liegt also bei PDFtoPrinter. Dieses Programm gibt’s hier: http://www.columbia.edu/~em36/pdftoprinter.html Auch den Sourccode (AutoIt) kann man sich ansehen: http://www.columbia.edu/~em36/PDFtoPrinter.au3 Der PDFtoPrinter muß im Scriptverzeichnis liegen. Und die MDPF.au3 muß installiert sein.

Sicherlich ist „ShellExecute(…“print“)“ eine Lösung aber die Zeit zum Öffnen des Acrobat und dann zum Drucken ist schwer abzuschätzen. Hier im Beispiel mit 10sec-Sleep eingetragen. Und ich muß den Acrobat jedes mal schließen. Je nach Rechenleistung des PC’s ist diese Zeit immer unterschiedlich. Und das plötzliche Öffnen eines neuen Fensters irritiert den Anwender.

Hat jemand ne Idee ???

De Rand Ere

Hallo zusammen,

seit längerem wende ich mich mal wieder mit einem Problem an Euch und ich hoffe Euch fällt dazu etwas ein.

Vor ca. 2 Jahren habe ich eine stochastische Lagerverwaltung für "bewegliche Güter(Pakete)" geschrieben. Die läuft auch gut - hat aber immer wieder Probleme mit dem IE. Die Generierung von notwendigen Tabellen hatte ich mittels HTML gelöst. Ich erstellte im IE eine leere Seite und generierte dann meine Tabellen. Mit der Umstellung von MS auf Edge gibt es da immer wieder Probleme, da im IE "Werbeseiten" eingeblendet werden und eine leere Seite nicht aufgerufen wird bzw. nicht angesprochen wird oder kann.

Somit hab ich mich entschlossen die Tabellen in einem PDF-Dokument zu erzeugen. Werkzeug dazu ist die MPDF.au3. Nach reichlich Testen und Probieren funzt das nun auch alles super.

ABER es gibt Probleme - genauer nur noch ein Problem!

Vor 2 Tagen hatte ich noch das Problem, daß ich bei mehrfachen Aufruf der TabebellenGenerator-Funktion sich die Seitenzahl aller, seit Laufzeitbeginn erstellten PDF-Dokumente addierte. Das konnte ich lösen, in dem ich die globale Variable der MPDF.au3 "$_Pages" immer wieder auf "0" setze.

Nun das aktuelle Problem:

Ich generiere ein Dokument mit 1 Seite. In der Druckerwarteschlange (zum Test angehalten) wird ein Dokument mit 1 Seite angezeigt. Ich wiederhole das noch mal - in der Druckerwarteschlange wird ein Dokument mit 2 Seiten angezeigt. Wiederholung - 3 Seiten, Wiederholung 4 Seiten ... Dokument mit 12 Seiten = 16 Seiten in der Druckerwarteschlange ...

Ich benutze zum ungestörtem Drucken PDFtoPrinter. Das habe ich gerade überprüft. Sobald der Druck durch ist wird das Temp-Verzeichnis gelöscht und zu jedem neuem Druck neu aufgerufen / ins Temp geschrieben. Das kann es nicht sein - denke ich ...

Auch die "Minuten-Sekunden-genaue" Bezeichnung des generierten PDF-Dokuments half nicht weiter. Mein Gedanke war, daß es dann verschiedene Dateien sein müßten.

Ich denke der "Fehler" liegt in der MPDF.au3.

Bei mehrfachem Aufruf der Funktionen wird der "Zwischenspeicher" nicht gelöscht und alle neu generierten Dokumente hinten ran geschrieben. Erst wenn ich mein Script beende und neu starte - wird MPDF.au3 neu geladen und das Spiel fängt von vorne an.

Leider bin ich in der objektorientierten bzw. in der windowsinternen Programmierung nicht so toll bewandert.

Hier ein Beispiel zur Druckerwarteschlange:

Warteschlange.jpg

Erklärung zum Bild:

1. Dokument - 1 Seite

2. Dokument - 1 Seite

3. Dokument - 1 Seite

4. Dokument - 12 Seiten

Und das ist meine Funktion zur Generierung der Tabellen - leider nicht lauffähig. Die etwas über 2000 Zeilen wollt ich hier nicht rein stellen und um diese Funktion einen Rahmen zu basteln hatte ich noch nicht die Zeit.

Spoiler anzeigen

Func _Liste_drucken($aDBank, $iListe, $vV, $vP)

Local $vTabellenName, $vSpalte1_Kopf, $vSpalte2_Kopf, $vSpalte3_Kopf, $vSpalte4_Kopf, $vSpalte5_Kopf, $vSpalte6_Kopf, $vSpalte6_Kopf

Global $vLogDateiName

If $iListe > 2 Then $vLogDateiName = StringTrimRight($vLogDateiName,5)

;setze die PDF - HeaderEinträge

_SetTitle("Listen Druck")

_SetSubject("Firma")

_SetKeywords("")

_OpenAfter($vV) ;open after generation

_SetUnit($PDF_UNIT_CM)

_SetPaperSize("A4")

_SetZoomMode($PDF_ZOOM_CUSTOM, 100)

_SetOrientation($PDF_ORIENTATION_PORTRAIT)

_SetLayoutMode($PDF_LAYOUT_CONTINOUS)

;initialize the pdf

Local $vPDFDatei = "\etc\Listendruck_" & @MIN & "-" & @SEC &".pdf"

_InitPDF(@ScriptDir & $vPDFDatei)

_LoadFontTT("F1", $PDF_FONT_TIMES,$PDF_FONT_BOLDITALIC)

_LoadFontTT("_Calibri", $PDF_FONT_CALIBRI)

_SetColourFill(0x000000)

_SetColourStrokE(0x000000)

Local $vTxtUnterkante = 26.5 ; Unterkante der Texte in der kopfzeile

Local $vTabellenZeilen = $vLaenge_PaketListe ; Anzahl der gesamten Zeileneinträge in der Tabelle. Auf eine Seite passen 45 Zeilen.

Local $vZeilen = 45 ; Zeilen, die auf eine Seite passen

Local $vSeiten = Round(Int($vTabellenZeilen / 45)) + 1 ;notwendige Seiten berechnen

Local $vStartNumTab = 0

If $vTabellenZeilen < $vZeilen Then

$vZeilen = $vTabellenZeilen

EndIf

Local $vEndeNumTab = $vZeilen

ConsoleWrite("TabZeilen: " & $vTabellenZeilen & " - Seiten: " & $vSeiten & @CR)

For $J = 1 to $vSeiten

_BeginPage()

$vSpalte1_Kopf = "EAN - Code"

$vSpalte2_Kopf = "Name des Empfängers"

$vSpalte3_Kopf = "Lagerfach"

$vSpalte4_Kopf = "lfd Nummer"

$vSpalte5_Kopf = "Zulauf"

$vSpalte6_Kopf = "Rücksendung"; Bezeichnung ???? eventuell Daten des Zulaufs ... unklar ....

$vSpalte7_Kopf = "gebucht"

_Draw_Rectangle(1.5, 26.3, 18.3, 2, $PDF_STYLE_STROKED, 0, 0xefefef, 0.05) ; Rahmen Tabellenkopf

Switch $iListe

Case 1

;Tabellenkopf zusammenstellen

$vTabellenName = "Paketbestandsliste vom " & @MDAY&"."&@MON&"."&@YEAR&" - "&@HOUR&":"&@MIN&":"&@SEC & " Uhr"

_DrawText( 19.8, 28.5, $vTabellenName, "F1", 14, $PDF_ALIGN_RIGHT) ; TabellenName

_DrawText( 03.2, $vTxtUnterkante, $vSpalte1_Kopf, "_Calibri", 10, $PDF_ALIGN_CENTER); Spalte1_Kopf

_DrawText( 05.0, $vTxtUnterkante, $vSpalte2_Kopf, "_Calibri", 10, $PDF_ALIGN_LEFT); Spalte2_Kopf

_DrawText( 13.5, $vTxtUnterkante, $vSpalte3_Kopf, "_Calibri", 10, $PDF_ALIGN_LEFT,90) ; Spalte3_Kopf

_DrawText( 14.3, $vTxtUnterkante, $vSpalte4_Kopf, "_Calibri", 9, $PDF_ALIGN_LEFT,90) ; Spalte4_Kopf

_DrawText( 15.5,$vTxtUnterkante + 0.5, "Datum", "_Calibri", 10, $PDF_ALIGN_CENTER) ; Spalte5_Kopf - 1. Zeile

_DrawText( 15.5, $vTxtUnterkante, $vSpalte5_Kopf, "_Calibri", 10, $PDF_ALIGN_CENTER) ; Spalte5_Kopf - 2. Zeile

_DrawText( 17.8, $vTxtUnterkante + 0.5, "Datum", "_Calibri", 10, $PDF_ALIGN_CENTER) ; Spalte6_Kopf - 1. Zeile

_DrawText( 17.8, $vTxtUnterkante, $vSpalte6_Kopf, "_Calibri", 10, $PDF_ALIGN_CENTER) ; Spalte6_Kopf - 2. Zeile

_DrawText( 19.5, $vTxtUnterkante, "Check", "_Calibri", 10, $PDF_ALIGN_LEFT,90) ;

local $vXSpalte_1 = 01.5 ; Definition der Spaltenlinien X-Achse

local $vXSpalte_2 = 04.8

local $vXSpalte_3 = 13.0

local $vXSpalte_4 = 13.8

local $vXSpalte_5 = 14.5

local $vXSpalte_6 = 16.7

local $vXSpalte_7 = 19.0

local $vXSpalte_8 = 19.8

Local $vXTxtSpalte_1 = 03.2 ; Definition des Textbegin X-Achse

local $vXTxtSpalte_2 = 05.0

local $vXTxtSpalte_3 = 13.4

local $vXTxtSpalte_4 = 14.2

local $vXTxtSpalte_5 = 15.6

local $vXTxtSpalte_6 = 17.9

$vTabStartY = 25.8

$Y = -0.2

For $I = $vStartNumTab to $vEndeNumTab - 1

$vEmpfaenger = $aDBank[$I][1]

If StringLen($vEmpfaenger)>= 50 Then

$vEmpfaenger = StringLeft($vEmpfaenger,47) & "..."

EndIf

;~ ConsoleWrite("Case 2 - $vEmpfaenger: " & $vEmpfaenger & @CR)

_DrawText( $vXSpalte_1 -0.1, $vTabStartY , $I + 1, "_Calibri", 6, $PDF_ALIGN_RIGHT)

_DrawText( $vXTxtSpalte_1, $vTabStartY , $aPakete[$I][0], "_Calibri", 10, $PDF_ALIGN_CENTER)

_DrawText( $vXTxtSpalte_2, $vTabStartY , $vEmpfaenger, "_Calibri", 10, $PDF_ALIGN_LEFT) ; max 43 Zeichen

_DrawText( $vXTxtSpalte_3, $vTabStartY , $aDBank[$I][2], "_Calibri", 10, $PDF_ALIGN_CENTER)

_DrawText( $vXTxtSpalte_4, $vTabStartY , $aDBank[$I][3], "_Calibri", 10, $PDF_ALIGN_CENTER)

_DrawText( $vXTxtSpalte_5, $vTabStartY , $aDBank[$I][4], "_Calibri", 10, $PDF_ALIGN_CENTER)

_DrawText( $vXTxtSpalte_6, $vTabStartY , $aDBank[$I][5], "_Calibri", 10, $PDF_ALIGN_CENTER)

_DrawLine($vXSpalte_1,$vTabStartY - 0.15,19.8,$vTabStartY + $Y, $PDF_STYLE_STROKED, 0, 0,0.05)

$vTabStartY += -0.55

$vTabellenName = "Paket - Rücksendeliste vom " & @MDAY&"."&@MON&"."&@YEAR&" - "&@HOUR&":"&@MIN&":"&@SEC & " Uhr"

_DrawText( 19.9, 28.5, $vTabellenName, "F1", 16, $PDF_ALIGN_RIGHT) ; TabellenName