델파이에서 양식을 인쇄하는 방법은 무엇입니까?

Question

약 30 분 동안 웹 검색을 한 후에 도움을 요청하기로 결정했습니다. 현재이 코드를 사용하고 있습니다 :

procedure TViewSalesActivity.btnPrintClick(Sender: TObject); 
begin 
    with TPrintDialog.Create(nil) do 
    ViewSalesActivity.PrintScale:= 1.5 
    try 
    if Execute then 
    ViewSalesActivity.Print; 
finally 
    Free; 
end; 
end; 

는 전체 양식을 인쇄 할 수 있습니다. 양식에 버튼, 텍스트, 캡션 및 편집 상자 등이 포함됩니다.

유일한 문제점은 인쇄물이 컴퓨터 창의 크기를 조정한다는 것입니다. 그것은 너무 작습니다. 또한 페이지의 왼쪽 상단에 붙어 있습니다. 페이지 전체/페이지의 대부분을 채울 수있는 방법이 있습니까?

Answer 1

ViewSalesActivity 변수가 TForm의 자손 인 가정, poPrintToFit

ViewSalesActivity.PrintScale:=poPrintToFit; 
ViewSalesActivity.Print;