Q&A
- Print 출력이 이상하네요?
다음과 같이 출력을합니다.
Edit1.Text 값이 바꿔주면서 여러장 출력을 합니다.
Printer.BeginDoc;
Printer.Canvas.TextOut(1350, 60, Edit1.Text); // 가로/세로
Printer.Canvas.TextOut(2850, 250, Edit1.Text);
Printer.EndDoc;
그런데 문제는 규격용지가 아니라서 그러는지 글씨크기가
아주 작게 출력이 됩니다.
한장 찍을때는 잘되는데 여러장을 한꺼번에 출력하면 그러네요...ㅠ_ㅠ
도움바랍니다.
Edit1.Text 값이 바꿔주면서 여러장 출력을 합니다.
Printer.BeginDoc;
Printer.Canvas.TextOut(1350, 60, Edit1.Text); // 가로/세로
Printer.Canvas.TextOut(2850, 250, Edit1.Text);
Printer.EndDoc;
그런데 문제는 규격용지가 아니라서 그러는지 글씨크기가
아주 작게 출력이 됩니다.
한장 찍을때는 잘되는데 여러장을 한꺼번에 출력하면 그러네요...ㅠ_ㅠ
도움바랍니다.
3
COMMENTS
-
-
답변에 감사드립니다.
하지만
이렇케 출력해도 그렇습니다.
어찌하나요..
Printer.Canvas.Font.Name := '고딕';
Printer.Canvas.Font.Height := 20;
Printer.Canvas.Brush.Style := bsSolid;
Printer.Orientation := poLandscape;
Printer.BeginDoc;
Printer.Canvas.TextOut(1350, 60, Edit1.Text); // 가로/세로
Printer.Canvas.TextOut(2850, 250, Edit1.Text);
Printer.EndDoc;
-
아래처럼 해보세여..
그리고
출력위치 지정할 때 위 처럼 절대값을 주지말고
PageWidth, PageHeight 를 이용해보세여...
Printer.Canvas.TextOut(PageWidth div 20, PageHeight div 20, Edit1.Text);
이런 식으로.....
(NOTICE) You must be logged in to comment on this post.
-
- 우정민
- 2002.04.28 10:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 김흥식
- •
- 2002.04.28 03:37
- 3 COMMENTS
- /
- 0 LIKES
다음과 같이 출력을합니다. Edit1.Text 값이 바꿔주면서 여러장 출력을 합니다. Printer.BeginDoc; Printer.Canvas.TextOut(1350, 60, Edit1.Text); // 가로/세로 Printer.Canvas.TextOut(2850, 250, Edit1.Text); Printer.EndDoc; 그런데...-
이기택•2002.04.28 23:56찍기전에 폰트를 조정해보세요 Printer.Canvas.font := ~~~
-
김흥식•2002.04.29 18:16답변에 감사드립니다. 하지만 이렇케 출력해도 그렇습니다. 어찌하나요.. Printer.Canva...
-
최은석•2002.04.29 21:00아래처럼 해보세여.. 그리고 출력위치 지정할 때 위 처럼 절대값을 주지말고 PageWidth, PageHeig...
-
- 김종균
- •
- 2002.04.28 03:20
- 3 COMMENTS
- /
- 0 LIKES
-
조규춘•2002.04.29 16:04안녕하셔요.. procedure TForm1.FormCreate(Sender: TObject); begin H := FindWindow('Progman...
-
김종균•2002.04.30 00:13안되는데요.... 에러만 뜨고....... 어디에 이미지를 넣는거에요? 초ㄹ보라....... 그리고 H는 변수 인...
-
조규춘•2002.04.30 00:19전체소스입니다. unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics...
-
- 김종균
- 2002.04.28 03:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 이은주
- 2002.04.28 02:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 박연준
- •
- 2002.04.27 23:04
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2002.04.28 02:47inf버전을 올리고, HTML에서 cab화일 버전도 올리세요.
-
- 김종균
- 2002.04.27 23:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 연기훈
- •
- 2002.04.27 21:34
- 1 COMMENTS
- /
- 0 LIKES
-
이중철•2002.04.29 08:12첫째 방법 - Control배열을 미리 만들어 거기에 매치 시키는 방법 ...
-
- 이정규
- 2002.04.27 21:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 이인수
- 2002.04.27 20:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤정식
- •
- 2002.04.27 19:47
- 1 COMMENTS
- /
- 0 LIKES
-
이재봉•2002.04.27 19:56^^
-
- 김진호
- •
- 2002.04.27 16:35
- 1 COMMENTS
- /
- 0 LIKES
-
김팔성•2002.04.27 21:34--------------------------------------------------------------------- Query의 RequestLive를 Tr...
-
- 김종균
- •
- 2002.04.27 10:23
- 1 COMMENTS
- /
- 0 LIKES
-
이낭하•2002.04.27 12:36Project menu 의 options을 선택 하면 form탭이 나옵니다. 거기서 생성 여부를 선택 할 수 있죠..
-
- 김종균
- •
- 2002.04.27 10:17
- 4 COMMENTS
- /
- 0 LIKES
-
이재봉•2002.04.27 19:55ShowHint 부분을 체크해 보심이..... False라면 True로. 이렇게 하셨어도 도움말이 안나온다면, 코딩...
-
김종균•2002.04.27 20:00델파이 프로그램에서 도움말이 안나타나거든여...... 델파이 툴이여... 5.0 아이콘에 마우스 가져다 노으...
-
이재봉•2002.04.27 20:12안냐세요. 델파이에서 였군여. 그건 Environment Options에서 Designer탭에 옵션 부분에서 Show D...
-
김종균•2002.04.27 22:10체크되어 있거든여......... 안나타나여........ 메모리를 늘렸는데 그런 것 때문은 아닐테고......... ...
-
- 이종주
- •
- 2002.04.27 09:21
- 1 COMMENTS
- /
- 0 LIKES
-
김도형•2002.04.27 18:23이함수 함 써보믄 될꺼 같네여 .. ^^ showmessage( sSTrChk( Edit1.text) ); 이렇게 하믄 ...
-
- 김팔성
- 2002.04.27 05:51
- 0 COMMENTS
- /
- 0 LIKES
-
- songwc
- •
- 2002.04.27 04:32
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•2002.04.27 19:24일반 서비스 등록 방법이랑 동일합니다. -install 옵션으로 실행 시켜서 등록하세요.
-
- 김재환
- •
- 2002.04.27 03:26
- 1 COMMENTS
- /
- 0 LIKES
-
공성환•2002.04.27 03:37쿼리문에서 like문을 사용하세요... select * from 테이블명 where 검색필드 like '김%' ...
-
- 김재환
- •
- 2002.04.27 03:03
- 2 COMMENTS
- /
- 0 LIKES
-
BravoJW•2002.04.27 03:09ms-sql 에서 문자조작함수가 substring이고 oracle에서는 substr을 쓰거덩여 delphi에서는 copy를 쓰는데...
-
조근영•2002.06.20 23:25흠흠.......... uses ohLib 살다보니 나두 남한테 도움될때가 있넹....^^
-
- 래머™
- 2002.04.27 02:24
- 0 COMMENTS
- /
- 0 LIKES
찍기전에 폰트를 조정해보세요
Printer.Canvas.font := ~~~