-.-;; 무슨말인지 잘모르겠네요...



다시 정리해서 올립니다.



아래의 함수는 그리기 전용함수입니다.

이곳에서 모든것을 그리죠...



procedure DrawContent( c: TCanvas );

begin

with c do

begin

Rectangle( 150, 50, 250, 400 );

MoveTo( 100, 100 );

LineTo( 300, 300 );

Font.Size:= 10;

TextOut( 200, 200, '테스트' );

Font.Size:= 20;

TextOut( 200, 400, '테스트' );

end;

end;



미리보기 버튼을 누르면 다음과 같이 화면에 나옵니다.



procedure TfrmPrinter04.btnDrawClick(Sender: TObject);

var

sWin, sView: TSize;

begin

SetMapMode( imgArea.Canvas.Handle, MM_ISOTROPIC );

SetWindowExtEx( imgArea.Canvas.Handle, 300, 300, @sWin );

SetViewportExtEx( imgArea.Canvas.Handle, 300, 300, @sWin );



DrawContent(imgArea.Canvas);

end;



여기서 imgArea는 TImage컴포넌트죠...



그리고 인쇄버튼을 누르면



procedure TfrmPreview.btnPrintingClick(Sender: TObject);

var

XPI, YPI: Integer;

sWin, sView: Size;

begin

if prtDlg.Execute then

begin

Printer.BeginDoc;



XPI:= GetDeviceCaps( Printer.Canvas.Handle, LOGPIXELSX );

YPI:= GetDeviceCaps( Printer.Canvas.Handle, LOGPIXELSY );



SetMapMode( Printer.Canvas.Handle, MM_ISOTROPIC );

SetWindowExtEx( Printer.Canvas.Handle, XPI, YPI, @sWin );

SetViewportExtEx( Printer.Canvas.Handle, XPI, YPI, @sWin );



DrawContent( Printer.Canvas );

Printer.EndDoc;

end;

end;



요렇게 실행을 하죠...



결과는 인쇄하면 폰트가 무자게 커진다는 말씀... -.-;



이 문제를 어떻게 해결할까요?



폰트에 어떤 조작을 가해야 하지 않나요?



알려주세요...



프리즈~

다시 질문입니다.



제가



XPI:= GetDeviceCaps( Canvas.Handle, LOGPIXELSX );

YPI:= GetDeviceCaps( Canvas.Handle, LOGPIXELSY );

SetMapMode( Canvas.Handle, MM_ISOTROPIC );

SetWindowExtEx( Canvas.Handle, 100, 100, @sWin );

SetViewportExtEx( Canvas.Handle, XPI, YPI, @sWin );



이 코드를 이용해서 인쇄를 했습니다.



문제는 화면에 뿌렸을 때는 폰트의 사이즈에 따라



화면의 비율에 따라 자연스럽게 나오지만



인쇄로 들어가면 비율에 맞지 않는 이미지가



나온다는 것이죠...



이 문제를 해결하려면 어떻게 해야 할까요?



T.T



무진장 중요한 문제랍니다.



그럼.. 고수님들 부탁드립니다.

화면 출력 후



XPI := GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSX);

YPI := GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSY);



로 다시 계산 하신후 출력해 보세요.





남윤혁 wrote:

> 다시 질문입니다.

>

> 제가

>

> XPI:= GetDeviceCaps( Canvas.Handle, LOGPIXELSX );

> YPI:= GetDeviceCaps( Canvas.Handle, LOGPIXELSY );

> SetMapMode( Canvas.Handle, MM_ISOTROPIC );

> SetWindowExtEx( Canvas.Handle, 100, 100, @sWin );

> SetViewportExtEx( Canvas.Handle, XPI, YPI, @sWin );

>

> 이 코드를 이용해서 인쇄를 했습니다.

>

> 문제는 화면에 뿌렸을 때는 폰트의 사이즈에 따라

>

> 화면의 비율에 따라 자연스럽게 나오지만

>

> 인쇄로 들어가면 비율에 맞지 않는 이미지가

>

> 나온다는 것이죠...

>

> 이 문제를 해결하려면 어떻게 해야 할까요?

>

> T.T

>

> 무진장 중요한 문제랍니다.

>

> 그럼.. 고수님들 부탁드립니다.

>

>

남윤혁 wrote:

> 으아... 미치겠습니다.

>

> 인쇄를 하기 위해서

>

> 매핑모드 바꾼거 까지는 좋았습니다.

>

> 텍스트를 인쇄하기 전까지는 말이죠... -.-;;

>

> 그런데... 텍스트가 지 마음대로 인쇄가 되는 것입니다.

>

> 이 난관을 어떻게 극복해야 할까요?

>

> 알려 주세용...

>

> 저는 델파이의 Printer객체를 사용해서 인쇄를 하려 합니다.

>

> 이 질문을 윈도우API로 분류해도 되는지 몰겠네요...

>

> 그럼...

>

>

> - 글을 읽어 주셔서 감사합니다.



안녕하세요!.



질문의 범위가 너무 광범위 합니다. 질문을 하실때는 되도록 이면



이런 이런 코드가 있는데 이런 부분에서 문제가 생기더라 식으로 작성 해주시면



감사하겠습니다.