Drucken in bunt

[Stefan Mettenbrink <S dot Metti at gmx dot de>]

Ich erzeuge einen Buffer (RB 5.5.4):
   etikettbuffer(ubound(etikettbuffer)).transparent=1 //(1=weiß 
ist transparent)
   g=etikettbuffer(ubound(etikettbuffer)).graphics
   if g<> nil then
     g.TextFont=ZeichensatzPopup.text
     if RadioButton1.value then
       g.foreColor=EtikettFarbe
     else
       if person(nr).geschlecht=0 then
         g.foreColor=farbe(2)
       else
         g.foreColor=farbe(3)
       end
     end
     ...

und zeichne darin den Text in den entsprechenden Farben.
Auf dem Bildschirm sieht das gut aus. Gedruckt nicht :-(

Hat jemand eine Ahnung, wie das kommt?

Zum Drucken werden die einzelnen Buffer auf die Seite kopiert und 
anschließend auf die Seite ausgeben:
   for i=0 to val(EField(1).text)-1//Zeile
     for j=0 to val(EField(0).text)-1//Spalte
       import.ProgressBar1.Value=i*val(EField(0).text)+j+1
       import.Refresh
       if printaufkleber(j+i*val(EField(0).text))=true and 
j+i*val(EField(0).text)+z<=ubound(etikettbuffer) then
         buffer.graphics.drawpicture 
etikettbuffer(j+i*val(EField(0).text)), x, y, ...  etc.
       end
     next
   next
   
   p=new printerSetup
   if p=nil then
     Hinweis("konte Printersetup nicht anlegen!")
   else
     g  = OpenPrinterdialog(p)
     if g<>nil then
       p.maxhorizontalResolution=-1
       p.maxverticalResolution=-1
       y=p.pageheight-p.height
       x=p.pagewidth-p.width
       
       g.drawpicture 
buffer,0,0,g.width,g.height,x*2,y*2,buffer.width-x*4,buffer.height-y*4
     end
     import.Close
   end
 
Irgendwie sehe ich den Fehler nicht, vermute aber, er hat etwas mit dem 
Tranzparentmodus zu tun.
Wäre für Tipps dankbar.

MfG, Metti.