Q&A

  • DB내용 dbgrid에 출력 하려고 하는데요
dbGrid에 DB내용을 보여서 그 테이블을 프린트하고 싶거든요

딱 테이블 내용만 출력하게요..그런데 제가 아무리 해봐도 안되네요

제 소스는요





procedure TForm1.DB1Click(Sender: TObject);

//지정된 디렉토리에서 DB파일 연다

begin

open1.Execute;

Table1.TableName := open1.FileName;

Table1.Active := True;



Form2.Show;



With Form2 do

begin

Qrep1.DataSet := Table1;

DBGrid1.DataSource := DaTaSource1;



end



end;



procedure TForm1.N2Click(Sender: TObject);

//출력하는 버튼

begin

form2.qrep1.preview;

Form2.qrep1.print;





end;



procedure TForm1.N3Click(Sender: TObject);

//종료버튼

begin

close();



end;



end.



폼 1은 메뉴만 있는 폼이구요

폼 2는 출력 폼인데요

모가 잘못 되서 그러는지 출력이 안됩니다

가르쳐 주새요

그럼....



0  COMMENTS