바코드프린터 출력 참고

바코드프린터 출력 

728x90

 

 

 

procedure TForm1.Button4Click(Sender: TObject);
var
s, Str, data: String;
begin
data := Edit1.Text;
S:='';
s:= Chr($1B)+ Chr($61)+Chr($1); // ' 정렬 0:왼쪽 1:중앙 2:오른쪽
S:= S + chr($1D) + chr($21)+ chr($1); //글자크기
S:= S + '영수증'+ chr($0D)+ chr($0A)+chr($0D)+ chr($0A); //원하글자와 제어코드를 계속해서 추가합니다..
ComPort1.WriteStr(s);
S := '';
S:= S + chr($1D)+chr($21)+chr($0); //글자크기 처음으로돌리기
s:= S + Chr($1B)+ Chr($61)+Chr($1); // ' 정렬 0:왼쪽 1:중앙 2:오른쪽
S:= S+ '2006년12월 00일 '+chr($0D) + chr($0A);
s:= S+ ('--------------------어쩌구--------------'+chr($0D) + chr($0A));
S:= S+ ('---------------------저쩌구-------------'+chr($0D) + chr($0A));
S:= S+ ('--------------------------------------- '+chr($0D) + chr($0A));
s:= S+ ('----------------------------------------'+chr($0D) + chr($0A));
S:= S+ ('----------------------------------------'+chr($0D) + chr($0A));
S:= S+ ('----------------------------------------'+chr($0D) + chr($0A));
S:= S+ ('----------------------------------------' +chr($0D) + chr($0A));
S:= S+ ('----------------------------------------'+chr($0D) + chr($0A));
S:= S+ ('영수금액 : 500,000원' +chr($0D) + chr($0A));
ComPort1.WriteStr(s);
S:= '';
s := Chr($1B)+ Chr($61)+Chr($1); // ' 정렬 0:왼쪽 1:중앙 2:오른쪽
s := s + Chr($1D) + Chr($68) + Chr($35); // ' 바코드 높이설정
s := s + Chr($1D) + Chr($77) + Chr($2); // ' 바코드 폭설정

s := s + Chr($1D) + Chr($48) + Chr($2); // ' HRI문자 인쇄위치 아래인쇄지정

s := s + Chr($1D) + Chr($6B) + Chr($45) + Chr($E);
s := s + Edit1.text + Chr($A); //출력시 원하는값넣기

s := s + Chr($1B) + Chr($61)+Chr($0) ;
s := S+ chr($0D) + chr($0A);
s := S+ chr($0D) + chr($0A);
s := S+ chr($0D) + chr($0A);
s := S+ chr($0D) + chr($0A);
s := S+ chr($0D) + chr($0A);
s := S+ chr($0D) + chr($0A); //라인 LF
S := S + chr($1D) + chr($56)+chr($0); //용지 자르기

 

//if NewLine_CB.Checked then
s := s + #13#10;
ComPort1.WriteStr(s);
end;