[ツリー表示へ] [ワード検索] [Home]
タイトル ： 印刷時のフォントサイズ 投稿日 ： 2008/07/04(Fri) 15:38 投稿者 ： さく
サンプルを見て、印刷のレイアウトをしています。 Dim blackPen As New Pen(Color.Black, 0.2) '線の太さを0.2に Dim f As New Font("ＭＳ ゴシック",11) ・・・・ 格子状に線を引き、その枠内に、テキストボックスの文字を入れます。 今、フォントのサイズを11にしていますが、テキストボックスの入力文字数によっては、 フォントサイズを10にしたり、9にしたりしたいんです。 10文字まで→11pt 11〜14文字→10pt 15〜18文字→9pt ・・・・・という感じです。EXCELでいうところの、「縮小して全体を表示する」というのがほしいのですが・・・ いいバランスで表示したいんです。枠は30個くらいあります。 何かいい方法はないでしょうか。 宜しくお願い致します。 |
をクリックするとツリー全体を一括表示します） - 印刷時のフォントサイズ - さく 08/07/04-15:38No.7767