Q&A
우선 제가 한 코딩 내용은 아래와 같습니다.
with Printer do
begin
BeginDoc;
// Header of Print
Canvas.font.Name:='돋움체';
Canvas.font.Size:=25;
Canvas.font.Style:= [fsBold, fsUnderline];
Canvas.TextOut(1300,Canvas.font.Size+100,
pnlHeader.Caption);
Canvas.font.Size:=9;
Canvas.font.Style:= [];
Canvas.TextOut(100,400, lblAcctType.Caption);
Canvas.TextOut(4200,400, lblDate.Caption);
PrintData:= Chr(1)+StringOfChar(chr(6), 12)+chr(22)
+StringOfChar(chr(6), 18)+
Chr(22)+StringOfChar(Chr(6), 18)+Chr(22)
+StringOfChar(Chr(6), 19)+
Chr(22)+StringOfChar(Chr(6), 12)+Chr(22)
+StringOfChar(Chr(6), 20)+
Chr(22)+StringOfChar(Chr(6), 12)+Chr(2);
Canvas.TextOut(100,500, PrintData);
PrintData:= Chr(5)+' 거래일자 '+ Chr(5)+' 출금 금액 '+
Chr(5)+' 입금 금액 '+ Chr(5)+
' 현재 잔액 '+
Chr(5)+' 적요 '+Chr(5)+' 의뢰인/수취인 '+
Chr(5)+' 취급점 '+Chr(5);
Canvas.TextOut(100,590, PrintData);
// Body of Print
PrintData:= Chr(25)+StringOfChar(chr(6), 12)+chr(16)
+StringOfChar(chr(6), 18)+
Chr(16)+StringOfChar(Chr(6), 18)+Chr(16)
+StringOfChar(Chr(6), 19)+
Chr(16)+StringOfChar(Chr(6), 12)+Chr(16)
+StringOfChar(Chr(6), 20)+
Chr(16)+StringOfChar(Chr(6), 12)+Chr(23);
Canvas.TextOut(100,690, PrintData);
J:=0;
// Data of Print
For I:= 1 to grdView.RowCount do
begin
PrintData:=Chr(5)+Format('%11s',[grdView.Cells[0,I]])
+StringOfChar(' ',1)+
Chr(5)+Format('%17s',[grdView.Cells[1,I]])
+StringOfChar(' ',1)+
Chr(5)+Format('%17s',[grdView.Cells[2,I]])
+StringOfChar(' ',1)+
Chr(5)+Format('%18s',[grdView.Cells[3,I]])
+StringOfChar(' ',1)+
Chr(5)+Format('%11s',[grdView.Cells[4,I]])
+StringOfChar(' ',1)+
Chr(5)+Format('%19s',[grdView.Cells[5,I]])
+StringOfChar(' ',1)+
Chr(5)+Format('%11s',[grdView.Cells[6,I]])
+StringOfChar(' ',1)+Chr(5);
Canvas.TextOut(100,790+J, PrintData);
J:=J+100;
end;
// Hooter of Print
PrintData:= Chr(3)+StringOfChar(Chr(6),12)+Chr(21)
+StringOfChar(Chr(6), 18)+
Chr(21)+StringOfChar(Chr(6),18)+Chr(21)
+StringOfChar(Chr(6), 19)+
Chr(21)+StringOfChar(Chr(6),12)+Chr(21)
+StringOfChar(Chr(6), 20)+
Chr(21)+StringOfChar(Chr(6),12)+Chr(4);
Canvas.TextOut(100,J+690, PrintData);
Canvas.TextOut(900,J+790, lblMsg.Caption);
Canvas.TextOut(100,J+890, lblAcctName.Caption);
Canvas.TextOut(3550,J+890, lblAcctDepot.Caption);
EndDoc;
이고요 결과물은 첨부File인데요(*.jpg)
내용인즉 단락사이가 벌어져서 출력이 됩니다..
해결책이 있나요...부탁 드립니다.!!!
- 프린터 관련 질문 입니다? 첨부File이 있네요.^^;
우선 제가 한 코딩 내용은 아래와 같습니다.
with Printer do
begin
BeginDoc;
// Header of Print
Canvas.font.Name:='돋움체';
Canvas.font.Size:=25;
Canvas.font.Style:= [fsBold, fsUnderline];
Canvas.TextOut(1300,Canvas.font.Size+100,
pnlHeader.Caption);
Canvas.font.Size:=9;
Canvas.font.Style:= [];
Canvas.TextOut(100,400, lblAcctType.Caption);
Canvas.TextOut(4200,400, lblDate.Caption);
PrintData:= Chr(1)+StringOfChar(chr(6), 12)+chr(22)
+StringOfChar(chr(6), 18)+
Chr(22)+StringOfChar(Chr(6), 18)+Chr(22)
+StringOfChar(Chr(6), 19)+
Chr(22)+StringOfChar(Chr(6), 12)+Chr(22)
+StringOfChar(Chr(6), 20)+
Chr(22)+StringOfChar(Chr(6), 12)+Chr(2);
Canvas.TextOut(100,500, PrintData);
PrintData:= Chr(5)+' 거래일자 '+ Chr(5)+' 출금 금액 '+
Chr(5)+' 입금 금액 '+ Chr(5)+
' 현재 잔액 '+
Chr(5)+' 적요 '+Chr(5)+' 의뢰인/수취인 '+
Chr(5)+' 취급점 '+Chr(5);
Canvas.TextOut(100,590, PrintData);
// Body of Print
PrintData:= Chr(25)+StringOfChar(chr(6), 12)+chr(16)
+StringOfChar(chr(6), 18)+
Chr(16)+StringOfChar(Chr(6), 18)+Chr(16)
+StringOfChar(Chr(6), 19)+
Chr(16)+StringOfChar(Chr(6), 12)+Chr(16)
+StringOfChar(Chr(6), 20)+
Chr(16)+StringOfChar(Chr(6), 12)+Chr(23);
Canvas.TextOut(100,690, PrintData);
J:=0;
// Data of Print
For I:= 1 to grdView.RowCount do
begin
PrintData:=Chr(5)+Format('%11s',[grdView.Cells[0,I]])
+StringOfChar(' ',1)+
Chr(5)+Format('%17s',[grdView.Cells[1,I]])
+StringOfChar(' ',1)+
Chr(5)+Format('%17s',[grdView.Cells[2,I]])
+StringOfChar(' ',1)+
Chr(5)+Format('%18s',[grdView.Cells[3,I]])
+StringOfChar(' ',1)+
Chr(5)+Format('%11s',[grdView.Cells[4,I]])
+StringOfChar(' ',1)+
Chr(5)+Format('%19s',[grdView.Cells[5,I]])
+StringOfChar(' ',1)+
Chr(5)+Format('%11s',[grdView.Cells[6,I]])
+StringOfChar(' ',1)+Chr(5);
Canvas.TextOut(100,790+J, PrintData);
J:=J+100;
end;
// Hooter of Print
PrintData:= Chr(3)+StringOfChar(Chr(6),12)+Chr(21)
+StringOfChar(Chr(6), 18)+
Chr(21)+StringOfChar(Chr(6),18)+Chr(21)
+StringOfChar(Chr(6), 19)+
Chr(21)+StringOfChar(Chr(6),12)+Chr(21)
+StringOfChar(Chr(6), 20)+
Chr(21)+StringOfChar(Chr(6),12)+Chr(4);
Canvas.TextOut(100,J+690, PrintData);
Canvas.TextOut(900,J+790, lblMsg.Caption);
Canvas.TextOut(100,J+890, lblAcctName.Caption);
Canvas.TextOut(3550,J+890, lblAcctDepot.Caption);
EndDoc;
이고요 결과물은 첨부File인데요(*.jpg)
내용인즉 단락사이가 벌어져서 출력이 됩니다..
해결책이 있나요...부탁 드립니다.!!!
2
COMMENTS
-
-
우선 답변을 주셔서 감사합니다.!!! 그런데
첨부파일 내용을 보시면 아시겠지만 테두리의 단락이 점선 처럼 떨어져
있습니다.
님께서 추천하여주신 90 ~ 80으로 조정도 해보았습니다만 해결이 되지
않았습니다.!!!
다른 해결책은 없는지요
(NOTICE) You must be logged in to comment on this post.
-
- 제이드팬
- 2003.10.21 05:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 기선미
- 2003.10.21 04:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 최종걸
- •
- 2003.10.21 03:33
- 1 COMMENTS
- /
- 0 LIKES
-
강형철•2003.10.21 04:29대충 이러합니다~ asm ~ end;로 블럭을 지정해서 합니다~ 그리고 도움말에서 asm 찾아보시면 자세히 나...
-
- 김성근
- •
- 2003.10.21 02:33
- 2 COMMENTS
- /
- 0 LIKES
우선 제가 한 코딩 내용은 아래와 같습니다. with Printer do begin BeginDoc; // Header of Print Canvas.font.Name:='돋움체'; Canvas.font.Size:=25; Canvas.font.Style:= [fsBold, fsUnderline]; Canvas.TextOut(1300,Canvas.font.Siz...-
연기훈•2003.10.21 23:25텍스트 출력시 출력 위치를 조정하세요! 현제 보니. 100 마다 출력하게 되어 있는데 이걸 90~ 80 정...
-
김성근•2003.10.22 00:13우선 답변을 주셔서 감사합니다.!!! 그런데 첨부파일 내용을 보시면 아시겠지만 테두리의 단락이 점선 ...
-
- 민경철
- •
- 2003.10.21 01:59
- 3 COMMENTS
- /
- 0 LIKES
-
윤수아•2003.10.21 21:47질문 내용이 잘 이해가 안 가지만서도... 음 일반적으로 우리가 쓰기 편한 함수들을 모아서 하나의 Pas화...
-
민경철•2003.10.21 22:47주신 답변 너무 감사드립니다. 제가.. 4gl 쪽 프로그래머로 일하다..웹프로그램만 짠지.. 3년가까이 되...
-
윤수아•2003.10.21 23:31ㅎㅎ 네~ 저는 제가 질문을 잘못 이해한 게 아닌가..걱정했는데 다행이네요
-
- 스머프
- 2003.10.21 01:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성근
- •
- 2003.10.21 00:02
- 3 COMMENTS
- /
- 0 LIKES
-
강형철•2003.10.21 00:36그냥 하는건 없고 변환작업을 해줘야합니다~ 한번 참고해보세요... 그럼 즐프^^ implementation {...
-
김성근•2003.10.21 02:25
-
KDDG_RNStone•2003.10.21 00:14형식은 이렇게 하십시오. 'YYYY-MM-DD' 저도 오래 되어서 잘 기억은 안납니다만은 년월일 사이의 구...
-
- 헨
- •
- 2003.10.20 21:20
- 2 COMMENTS
- /
- 0 LIKES
-
nilriri™•2003.10.21 23:33트리뷰의 TTreeNode 형으로 리턴되는 Selected속성의 Method중 Expand() 함수와 Collapse()를 ...
-
헨•2003.10.22 00:14잘 해결했습니다. 친절한 답변 감사드려여.. ^^;
-
- 임수빈
- 2003.10.20 20:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성근
- •
- 2003.10.20 19:52
- 1 COMMENTS
- /
- 0 LIKES
-
김기원•2003.10.20 23:41Space와 비슷한 함수가 있습니다. Format 이라는 함수를 사용해보세요 아래는 Edit1 에 입력한 값에 Sp...
-
- 이한규
- •
- 2003.10.20 19:51
- 1 COMMENTS
- /
- 0 LIKES
-
김기원•2003.10.20 23:59안녕하세요. DAO버전의 차이라고 생각 합니다. MS 홈페이지에서 자료를 찾아 보시면 답이 나올 것같습...
-
-
김경록•2003.10.22 00:18델파이에는 ParambyName이라는 좋은 속성이 있습니다. 그것을 사용하세요.. &nb...
-
델파이6•2003.10.20 16:52with Query1 do begin Close; SQL....
-
성더기•2003.10.20 07:43띄워쓰기 문제인듯합니다 AND 앞에 공백을 한자 넣어 보세요..^^ 그리고 혹시나 해서..ALTDATE는 string...
-
-
-
김진용•2003.10.18 20:51오라클 기준입니다... SELECT 년월 &nbs...
-
-
- 안문산
- •
- 2003.10.18 12:46
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2003.10.21 01:29안녕하세요. 최용일입니다. 안녕하세요. 최용일입니다. WM_NCHITTEST는 말 그대로 NC영역에서 발생한...
-
안문산•2003.10.21 03:17답변 감사합니다.. 델파이 시작 한지 일주일 짼데.. 이것 땜시 진도가 안 나갔었어거던여..^^;;
-
윤수아•2003.10.21 00:57이상하네요? 저 소스가 맞을텐데요? procedure Tform1.WMNCHitTest(var Msg:TWMNCHitTest); begin &nb...
-
- 김성근
- •
- 2003.10.18 03:43
- 2 COMMENTS
- /
- 0 LIKES
-
이중철•2003.10.18 04:54
-
김성근•2003.10.20 19:47
-
- 첨시작델
- •
- 2003.10.18 03:40
- 2 COMMENTS
- /
- 0 LIKES
-
강형철•2003.10.18 11:03procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin // B...
-
첨시작델•2003.10.18 18:59ㄳ합니다...유용하게 사용하겠습니다.
-
- 강덕용
- •
- 2003.10.18 01:31
- 1 COMMENTS
- /
- 0 LIKES
-
백털성물•2003.10.18 05:22
-
- help me
- 2003.10.18 01:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성근
- •
- 2003.10.18 00:04
- 2 COMMENTS
- /
- 0 LIKES
-
강형철•2003.10.18 11:15이건 이미 델파이에서 사용될 수 있도록 선언이 되어있는겂니다~ 단지 uses 절에 MMSystem을 포함...
-
김성근•2003.10.20 19:48
-
- 구관중
- •
- 2003.10.17 22:50
- 1 COMMENTS
- /
- 0 LIKES
-
Daniel•2003.11.16 00:04이름을 바꾸어서 install해야 합니다. HLP파일에 보면 TReport -> TCRReport로 TDatabase -> TCRDat...
현제 보니. 100 마다 출력하게 되어 있는데
이걸 90~ 80 정도로 줄이면 될꺼 같은데요!!