No.1ベストアンサー
- 回答日時:
こんにちは。
どういう感じのレポートか分かりませんが、
テキストボックスの高さを少し高くして改行ができるようにしては、どうでしょうか?
また、レポートの詳細のフォーマット時にテキストのフォント名、サイズは、変更できますよ。
例えば、そのテキストボックスの桁数を調べて、桁数が多ければ、フォントまたは、サイズを変更する。
ただ、これは、全テキストボックスをそうしたい場合は、記述が大変だし、
印刷するデータ件数が多い場合は、若干遅くなりますが...(^_^;)
こんな感じです。
レポートの詳細のフォーマット時で、
If Len(Me![テキストボックス名])> xx then ←何桁以上だった時
Me![テキストボックス名].FontName = "フォント名1" ←小さいフォント
Me![テキストボックス名].FontSize = xx ←小さく印刷する時のサイズ
Else
Me![テキストボックス名].FontName = "フォント名2" ←通常印刷するフォント
Me![テキストボックス名].FontSize = xx ←通常の指定のサイズ
End
これで出来ます。
よい回答じゃないかもしれないですけど、本職じゃないのでご勘弁下さい。
では。
では。
この回答への補足
すみません。このVBAだと全部大きくなったり小さくなったりで,長い文章だけ小さい文字にできないのですがどうすればいいのでしょうか?
補足日時:2003/02/28 22:13前者のやり方は気がついていたのですが文章がうえのほうに偏ってしまってきれいではないのでやらなかったのです,せめて1行のときは真ん中に自動でやってくれればよかったのですが,後者のほうはもうばっちりです。なるほどこういう方法があったのですね,VBA初級者なので気がつきませんでした,どうもありがとうございます,今から試してみます。
No.4
- 回答日時:
こんにちは。
>いろいろ数字を変えて試してみたんですが一番最初の文字だけしか適用されず
>そのあとの文字数が多くても少なくても最初で判断した文字サイズが使われているみたいです。
>イベントのタイミングが問題なのかいろいろ試してみましたがだめでした。
多分、VBAを書くところの問題と思います。
まず、レポートをデザインモードで開きます。
レポートをデザインモードで開くと、「ページヘッダー」「詳細」「ページフッター」があると思います。
その、「詳細」の文字をクリックすると、そこが黒く反転します。
反転したら、今度はそこで右クリックをして、ポップアップメニューを出して、「イベントのビルド」をクリックします。
そうすると、下記のように表示されるはずです。
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
End Sub
この間に、書けば大丈夫だと思います。
試してみて下さい。
では。
No.3
- 回答日時:
こんばんわ、No.1です。
>このVBAだと全部大きくなったり小さくなったりで,
>長い文章だけ小さい文字にできないのですがどうすればいいのでしょうか?
回答の中で、(何桁→何文字)
>If Len(Me![テキストボックス名])> xx then ←何文字以上だった時
がありますが、この xx(数字です)をもう少し大きくしてみればいいのでは?
長い文章というのは、何文字以上の時という時の何文字を、xx に書きます。
例えば、Me![テキストボックス名]が、15文字より大きい時、長い文章とするなら、
If Len(Me![テキストボックス名])> 15 then とすればよいです。
それで、15文字以下の文章は、Else ~ End If で設定したフォントで出力されます。
ちなみに、Else ~ End If の設定は、そのテキストボックスに設定したプロパティの
フォント、サイズと同じものを書いて下さい。
これでどうでしょうか?
この回答への補足
いろいろ数字を変えて試してみたんですが一番最初の文字だけしか適用されずそのあとの文字数が多くても少なくても最初で判断した文字サイズが使われているみたいです。イベントのタイミングが問題なのかいろいろ試してみましたがだめでした。よろしくお願いします。
補足日時:2003/03/02 11:33No.2
- 回答日時:
印刷時拡張を設定したレポートで横罫線をそろえる方法
マイクロソフトのサポートに載っていました。
テキストボックスの高さは変えられないので、
印刷時に、一番高さの高い テキストボックスに合わせて
LINEを引きます。
参考URL:http://support.microsoft.com/default.aspx?scid=k …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(パソコン・スマホ・電化製品) ワードでテキストボックス内の文字を連動させない方法 2 2023/02/09 16:56
- PowerPoint(パワーポイント) PowerPoint2007を使用しています。 図を挿入し、その上にテキストボックスで文字入れをした 2 2023/07/13 08:35
- Visual Basic(VBA) Vba テキストボックスの文字列をボタンで入力するとテキストボックスの端の文字列が更新されない 2 2022/05/21 23:32
- Access(アクセス) capeofdragonと申します。 Access2016を使っております。 あるフォームがあり、テ 2 2022/09/09 13:18
- Visual Basic(VBA) WordのVBAについて 5 2023/01/11 14:38
- Visual Basic(VBA) Vba テキストボックスでボックスのサイズ超えると文字列入力できない 2 2022/05/20 08:09
- その他(悩み相談・人生相談) パワーポイントにて テキストボックス内の文字がテキストボックスを動かすと文字までが動きます どうした 2 2023/05/31 09:46
- その他(ソフトウェア) LibleOffice Calc のテキストボックス 4 2023/08/16 09:37
- その他(Microsoft Office) エクセルのマクロを教えてください。 1 2023/01/27 09:05
- Visual Basic(VBA) Vba テキストボックス文字を右端から配置していく方法 3 2022/05/18 07:57
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスで住所の番地を縦書き...
-
ACCESS 2000のレポートでの文字...
-
Accessで文字列の長さによって...
-
accessのレポートのテキストボ...
-
アクセスのレポートで縮小印刷...
-
Excelでテキストボックスやオー...
-
「24日の0時」って・・・
-
パソコンで購入したデーターが...
-
VBAでエクセルシートを更新...
-
差し込み印刷に当日の日付が入...
-
日付の大小の表現
-
エクセルのチェックボックスを...
-
回覧板の日付について質問です...
-
エクセルで最高値、最低値の日...
-
「時間」、「期日」、「日付」...
-
エクセルで数字から名前に変...
-
VBAで「セルに何か入っている場...
-
日付を差し込み印刷で表示した...
-
excelで、セル内に文字が入力さ...
-
エクセル 条件が成立した場合...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessで文字列の長さによって...
-
Excelでテキストボックスやオー...
-
ACCESS 2000のレポートでの文字...
-
アクセスのレポートで縮小印刷...
-
ACCEESでマウスがテキストボッ...
-
アクセスで住所の番地を縦書き...
-
accessのレポートのテキストボ...
-
libreoffice の縦書きテキスト...
-
Access フォームやレポートで行...
-
accessのレポート上のフォント
-
VBAでエクセルシートを更新...
-
「24日の0時」って・・・
-
エクセルのチェックボックスを...
-
パソコンで購入したデーターが...
-
差し込み印刷に当日の日付が入...
-
excelで、セル内に文字が入力さ...
-
エクセルで最高値、最低値の日...
-
日付の大小の表現
-
回覧板の日付について質問です...
-
「時間」、「期日」、「日付」...
おすすめ情報