چاپ TreeView

برای چاپ TreeView آیا دوستان متد آماده ای دارید؟
توی سایت که هر چقدر جستجو کردم پیدا نشد.البته قبلا اگر اشتباه نکرده باشم دیدم اما الان هر چی سرچ میکنم پیدا نمیکنم.
قبلا متشکرم

ببین لینک زیر به دردت می خوره
http://www.delphipages.com/tips/thread.cfm?ID=257

این کد پرینت در فایل است یعنی از TreView یک عکس میگیرد و در یک فایل تصویری ذخیره میکند
مشکل را حل نمیکند

خوب می تونی فایل را به جای ذخیره چاپ کنی !مثلا از ابزارهای تصویر استفاده کنی!

ضمن تشکر از شما قصد دارم لقمه رو نپیچونم دور سرم
مستقیما به چاپگر بفرستم
باز هم تشکر

جوابش رو اینجا قرار دادم به امید استفاده دیگران

Var 

  F: Textfile; 

Begin 

  AssignPrn( F ); 

  Rewrite(F); 

  try 

    DumpTreeviewToTextfile( F, treeview1 ); 

  finally 

    closefile(F); 

  end; 

End;