![Sad :-(](./images/smilies/sad.gif)
Die Listen klappen prima. Nur wie kriege ich das Logo mit in den Text.
Hier mal ein Auszug aus meinem Quelltext:
oPrinter := XbpPrinter():new()
IF oPrinter:list() == NIL
MsgBox( "Fehler - Es sind keine Drucker installiert!", "" )
RETURN NIL
ENDIF
oDlg := XbpPrintDialog():new()
oDlg:enablePrintToFile := .F.
oDlg:printToFile := .F.
oDlg:enableNumCopies := .T.
oDlg:numCopies := 1
oDlg:create()
oDlg:configure()
oPrinter := oDlg:display()
IF oPrinter <> NIL
// Neuen Presentation-Space erzeugen
oPS := XbpPresSpace():new()
// Bedruckbarer Bereich auf dem Papier
aSize := oPrinter:paperSize()
aSize := { aSize[5] - aSize[3], aSize[6] - aSize[4] } // bedruckbarer Bereich
oPS:create( oPrinter, aSize, GRA_PU_LOMETRIC )
oPrinter:startDoc()
// Füllen eines Arrays mit Listeninhalt
AADD(aF, {xpos+50, ypos, aMit[1], oFont3})
ypos := ypos - zeilenabst
AADD(aF, {xpos+50, ypos, aMit[2], oFont3})
ypos := ypos - zeilenabst
AADD(aF, {xpos+50, ypos, aMit[3], oFont3})
// usw.
// Seiteninhalt drucken
FOR i = 1 TO LEN(aF)
GraSetFont( oPS,aF[i,4])
GraStringAt(oPS, { aF[i,1], aF[i,2] }, aF[i,3] )
NEXT
oPrinter:endDoc()
ENDIF
2. Problem
Wie bekomme ich eine Titelseite beim Programmaufruf hin. z.B. ein Hintergrundbild mit Programmname und "START"-Button, der dann zum eigentlichen Programm führt?
Bin für jede Hilfe dankbar
Gruß Wolfgang