TreeView (на печать) Delphi

[VadEr]

Здравствуйте!

Подскажите пожалуйста, есть ли какие-нибудь возможности вывести на печать сформированное дерево из TreeView? Т.е. сформировать текстовый файл с такой же структурой строк, как и в treeview?

Если нет, то какими путями обычно выводят на печать дерево, какими компонентами это можно осуществить?

[ОДИНОЧЕСТВО В СЕТИ]

print treeview

var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.Width := TreeView1.Width;
    bmp.Height := TreeView1.Height;
    bmp.Canvas.Lock;
    try
      TreeView1.Perform(WM_PRINT, bmp.Canvas.Handle, PRF_CHILDREN or
PRF_CLIENT or PRF_NONCLIENT);
    finally
      bmp.Canvas.UnLock;
      bmp.SaveToFile('d:\tree.bmp')
    end;
  finally
    bmp.Free
  end;
end;

[VadEr]

Спасибо, но почему-то на картинке выходит только видимая часть дерева.
Как сделать так, что бы вышло все?