인쇄만이라도 되게 해주세요..ㅜ.ㅜ;;

<!--CodeS-->
procedure TForm1.Button3Click(Sender: TObject);
var
tx_buffer : string;
barcode: string;

begin
     barcode:= '1,1,1,0';

     CommPortDriver1.DisConnect;
     CommPortDriver1.Port := pnCOM2;
     PrintDialog1.PrintToFile := True;
     commportdriver1.Connect;

  TX_BUFFER := STX + ESC + 'P' + ETX;
  TX_BUFFER := TX_BUFFER + STX + 'E1;F1;' + ETX;
  TX_BUFFER := TX_BUFFER + STX + 'L1;' + ETX;
  TX_BUFFER := TX_BUFFER + STX + 'D0' + ETX;
  TX_BUFFER := TX_BUFFER + STX + 'B0;o216,56;f3;c0,6;h112;w2;r1;i0;d3,' + BARCODE + ';' + ETX;
  TX_BUFFER := TX_BUFFER + STX + 'D1' + ETX;
  TX_BUFFER := TX_BUFFER + STX + 'H1;o89,99;f3;c20;h1;w1;d3,*;' + ETX;
  TX_BUFFER := TX_BUFFER + STX + 'D2' + ETX;
  TX_BUFFER := TX_BUFFER + STX + 'H2;o89,126;f3;c20;h1;w1;d3,' + BARCODE + ';' + ETX;
  TX_BUFFER := TX_BUFFER + STX + 'D3' + ETX;
  TX_BUFFER := TX_BUFFER + STX + 'H3;o89,558;f3;c20;h1;w1;d3,*;' + ETX;
  TX_BUFFER := TX_BUFFER + STX + 'D4' + ETX;
  TX_BUFFER := TX_BUFFER + STX + 'H4;o209,649;f3;c20,1;h2;w2;d3,' + Copy(BARCODE,1,2) + ';' + ETX;
  TX_BUFFER := TX_BUFFER + STX + 'R' + ETX;
  TX_BUFFER := TX_BUFFER + STX + ESC + 'E1' + CAN + ETX;
  TX_BUFFER := TX_BUFFER + STX + RS + '1' + US + '1' + ETB + FF + ETX;
  CommPortDriver1.SendData(PChar(Tx_Buffer),StrLen(PChar(Tx_Buffer)));
  commportdriver1.Disconnect;
end;
<!--CodeE-->