function IntToBin( Value: integer; Digits: integer ): string;
begin
result := StringOfChar ( '0', digits ) ;
while value > 0 do begin
if (value and 1) = 1 then
result[digits] := '1';
dec (digits) ;
value := value shr 1;
end;
end;

Hello! I am developing a POS System. I have need to print Sales receipt. I have no physical printer to test my printing but i have print on xps document. ...