Beiträge von Reiner Schlay

  • Problem mit Footern

    Hallo,

    Der Ausdruck wird im Hintergrund erzeugt (Angebote,Rechnungen,...)

    dadurch habe Ich keinen Editor zum kontrollieren

    erst nach dem erzeugen des Ausdruckes kann Ich diesen in einem Editor anzeigen.


    habe soeben zum testen verschiedene Footer erzeugt

    //namde footer

    HeaderFooter.Get(wpIsFooter, wpraNamed, 'PAGE1').RtfText.AsString := 'Dies ist der Footer 1';

    HeaderFooter.Get(wpIsFooter, wpraNamed, 'PAGE2').RtfText.AsString := 'Dies ist der Footer 2';

    HeaderFooter.Get(wpIsFooter, wpraNamed, 'PAGE3').RtfText.AsString := 'Dies ist der Footer 3';

    HeaderFooter.Get(wpIsFooter, wpraNamed, 'PAGE4').RtfText.AsString := 'Dies ist der Footer 4';

    HeaderFooter.Get(wpIsFooter, wpraNamed, 'PAGEL').RtfText.AsString := 'Dies ist der letzte Footer';

    //unnamed footer

    HeaderFooter.Get(wpIsFooter, wpraNotOnFirstAndLastPages).RtfText.AsString := 'Dies ist der Footer wpraNotOnFirstAndLastPages';

    HeaderFooter.Get(wpIsFooter, wpraOnFirstPage).RtfText.AsString := 'Dies ist der Footer wpraOnFirstPage';

    HeaderFooter.Get(wpIsFooter, wpraOnLastPage).RtfText.AsString := 'Dies ist der Footer wpraOnLastPage';

    im OnGetSpecialText-Event wird der richtige zugewiesen

    teste Ich mit unnamed Footern wpraOnfirstpage,... erscheint alles korrekt

    Arbeite Ich mit Named Footern werden trotzdem die Footer mit wpraOnFirst... angezeigt

    Einstellungen mit Headerfooter:

    Header.PrintHeaderFooterInPageMargins := true;

    PrintParameter.PageRange := wprAllPages;

    PrintParameter.PageSides := wpsAll;

    PrintParameter.PrintHeaderFooter := wprOnAllPages;

    PrintParameter.PrintFooterLastPage := [wprFooter];

    PrintParameter.PrintHeaderLastPage := [wprHeader];

    PrintParameter.PrintOptions := [];

  • Problem mit Footern

    Hallo Support-Team

    Ich benötige verschiedene Footer in einem Dokument

    erzeuge Ich die Footer mit

    HeaderFooter.Get(wpIsFooter, wpraNotOnFirstAndLastPages).RtfText.AsString := 'Dies ist der Footer wpraNotOnFirstAndLastPages';

    und weise sie im OnGetSpecialText zu mit

    SpecialText:=HeaderFooter.Find(wpIsFooter, wpraNotOnFirstAndLastPages);

    usethis:=true;

    erscheinen diese im Ausdruck

    erzeuge Ich diese als wpraNamed mit

    HeaderFooter.Get(wpIsFooter, wpraNamed, 'PAGEL').RtfText.AsString := 'Dies ist der letzte Footer';
    und

    SpecialText:=HeaderFooter.Find(wpIsFooter, wpraNamed,'PAGEL');

    usethis:=true;

    erscheinen diese nicht im Ausdruck

    Gibt es für Named footer eine besondere Einstellung damit diese erscheinen?

    mfg

    Reiner Schlay

  • [WPDF] Fehler bei Underline

    Hallo WPTools-Team,

    im neusten WPDF-Stand ist ein Fehler bei Underline enthalten

    Getestet mit Demos\Mini4

    2 wörter markiert -> Formatiert mit Underline -> Textfarbe Rot

    danach konvertiert zu PDF

    die Buchstaben sind Rot die Unterstreichung ist schwarz

    Ich vermute das dies in WPPDFR1_src.TWPCustomPDFExport._WPPDF_WPTEXEC im Case mit wdtUnderline passiert bei FPDFEngine.PolyLine(...

    hier wird vermutlich die Textfarbe nicht berücksichtigt.


    wie kann ich das beheben?


    mfg Reiner