[Pyro]

про печать формы не знаю, а полоски с квадратиками можно сделать так

Код:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  with Sender as TStringGrid do
  begin
    Cells[Col, Row] := Key;
    if col = ColCount - 1 then
      PostMessage(Parent.Handle, WM_NEXTDLGCTL, 0, 0)
    else
      Col := Col + 1;
  end;
end;