Imprimir TreeView en QuickReport

[*Caro*]

Empezado por Neeruu

Pero lo que quiero lograr es algo así:
Código Delphi [-]Raíz |_ 1 Nodo |_ 2 Nodo |_ 3 Nodo |_ 1 SubNodo |_ 2 SubNodo etc...


Es ahí donde se complica, cuando quiero agregar las lineas....

Hola de nuevo, no necesitas aumentar espacios, puedes utilizar la propiedad Level del TreeView y Left de tu QrLabel como te dije antes. Utilizando el evento OnNeedData del QuickReport estarías pasando directamente tu treview al reporte y para las lineas solo lo concatenas.

Código Delphi [-]
procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
 MoreData := ItemIndex <= TreeView1.Items.Count-1;
 if MoreData then
  begin
   Nivel := TreeView1.Items[ItemIndex].Level;
   Case Nivel Of
    0 : QRLabel1.Left := LeftIni;
    1 : QRLabel1.Left := LeftIni+20;
    2 : QRLabel1.Left := LeftIni+40;
   end;
   qrLabel1.Caption := '|_ '+TreeView1.Items[ItemIndex].Text;
  end;
end;
.................................................................
.................................................................
//variable global ItemIndex inicializas en 0
 ItemIndex := 0;
 LeftIni := QRLabel1.Left;

Saluditos