ich möchte auf eine Seite mehrere Rtf-Texte
neben anderen Texten und Grafiken drucken.
Einen einzelnen Rtf-Text kann ich mit
XbpRtf:print()
auf eine Seite drucken.
Wie kann ich mehr als einen Rtf-Text (und
auch anderen Text und Grafiken) auf die
gleiche Seite drucken?
Ich glaube, es ist ein Bug in xBase++ 1.90.331
Bei meinem Testprogramm erfolgt der erste
Ausdruck richtig, der zweite jedoch spiegelverkehrt und in falscher Schriftgröße.
Ist dies bei anderen auch der Fall?
Weiß jemand eine Lösung?
Danke für die Hilfe.
Uli
Code: Alles auswählen
// XbpRtf-Test
#include "Xbp.ch"
#include "Gra.ch"
#include "activex.ch"
PROCEDURE main
LOCAL oXbpRtf,oPresSpace,oPrinter
oXbpRtf := XbpRtf():new( ,,,,, .T.)
oXbpRtf:create()
oXbpRtf:TextRtf := "{\rtf1\ansi\ansicpg1252\deff0\deflang1031
{\fonttblf0\fnil\fcharset0 Arial;}}"+;
"\viewkind4\uc1\pard\fs16 Hallo!"+;
"\par"+;
"\par \ul\b\fs24 Alaska Team\ulnone\b0\fs16"+;
"\par }"
oPrinter := XbpPrinter():new()
oPrinter:Create()
oPresSpace := XbpPresSpace():new()
oPresSpace:create( oPrinter,{1900,2900},GRA_PU_LOMETRIC )
// Printing is wrong:
// Bei Zuweisung von oPrinter an den PresSpace
// Ausdruck verkehrtherum, spiegelverkehrt und GrӇe falsch!
oXbpRtf:Print( oPrinter )
oPresSpace:configure( NIL )
// Printing is ok:
oXbpRtf:Print( oPrinter ) // Druck ok
oPresSpace:destroy()
oPrinter:destroy()
oXbpRtf:destroy()
? "Fertig!"
WAIT
RETURN