Freeman wrote:

> ListView에서 프린트를 할려구 합니다.

> 저는 이제 막 델파이를 시작 했는데...

> 잘 모르겠네요...

> 고수님들 많은 조언 부탁드립니다.

> listview에서 물론 탭이 있구요

> 탭에 따라 프린트를 할려구 하는데요...

> 어떻게 해야 되는지...

> 그리구 listview에서 sorting은 어떻게 해야하는지

> 많은 조언 부탁드립니다.

> 아 그리구요 염치 불구하구 소스가 있어면 같이 주시면 감사하겠습니다.

>



=========================================================

[ 참고하세요! ]

어느분이 만드신 소스인지는 저두 몰라서...

=========================================================



// 리스트 뷰를 출력한다.

Uses Printers;



procedure PrintListView(lv: TListView);

var

Prn: TextFile;

i: Word;

Function GetSubItems(lvItem:TListItem) : String ;

Var

i :Word ;

Begin

Result := '';

For i := 0 To (lvItem.SubItems.Count -1) Do Begin

Result := Result + lvItem.SubItems[i]+' '

End;

Result := Trim(Result);

End;

Begin

AssignPrn(Prn);

Printer.Canvas.Font.Size := 10 ;

Printer.Canvas.Font.Name := 'Courior New';

Printer.Canvas.Font.Style := [];

Try

Rewrite(Prn);

Try

For i := 0 to lv.Items.Count - 1 Do Begin

writeln(Prn, lv.Items.Item[i].Caption+' '+

GetSubItems(lv.Items.Item[i]));

End;

Finally

CloseFile(Prn);

End;

Except

MessageDlg('Error Printing ListView', mtError, [mbOk], 0);

End;

End;