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는 출력 폼인데요
모가 잘못 되서 그러는지 출력이 안됩니다
가르쳐 주새요
그럼....