[リストへもどる]
一括表示

投稿時間:2003/08/05(Tue) 17:18
投稿者名:ヘイロー
Eメール:f_aitk@yahoo.co.jp
URL :
タイトル:
Datareportでのフォントの変更方法
 WinMe,VB6 SP5,Access97
上記環境で開発しております。
住所録をはがきに印刷させようと思い、DataReportにて作成しました。
そこで、はがきを印刷させる際に、住所の部分と宛名の部分のフォント
の種類と大きさをユーザ側から変更できるように、まずFormの部分で
コモンダイアログを2つ作り、住所用と宛名用のフォントを設定させ、
その値をまず、それぞれLabelに反映させ、それから、以下の方法で
DataReportのRptTexBoxのフォントを変更させようとしましたが、
住所・宛名とも同じフォント(Label2のフォント)にて表示されます。
どのように設定すれば、うまくいくのでしょうか?
With hagaki.Section("詳細")
    .Controls("jusyo").Font.Name = Label1.Font.Name
    .Controls("jusyo").Font.Siza = Label1.Font.Size
End With
With hagaki.Section("詳細")
    .Controls("Name").Font.Name = Label2.Font.Name
    .Controls("Name").Font.Siza = Label2.Font.Size
End With
また、印刷物を作成するにはDataReport以外にどのような方法で
作成出来るのでしょうか?
初歩的な質問かもしれませんがよろしくお願いします。

投稿時間:2003/08/06(Wed) 21:11
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: Datareportでのフォントの変更方法
私は DataReport は使った事がないので下記の方だけ
> また、印刷物を作成するにはDataReport以外にどのような方法で
> 作成出来るのでしょうか?

私は、はがきや封筒の宛名書きはPrinterオブジェクトを使って書いています。
又、ExcelやWordの印刷機能を利用して印刷する方法もありますし、複雑な
帳票類なら、ExcelでレイアウトしておきデータをVBからExcel上のセルに
設定するという手もあります。
Wordの差込印刷機能を利用すれば今回のようなはがきの宛名書きや封筒の宛名印刷
宛名ラベル等の印刷は比較的簡単にできるかと思います。
ちょっと複雑になりますがAPIを使って印刷すれば、角度を指定して文字列も印刷できます。

下記HPでも色々(VBで賢く印刷しよう)書いておられます。
 http://www.galliver.co.jp/writing/nikkei_tokushu/prn908/

投稿時間:2003/08/07(Thu) 11:26
投稿者名:ヘイロー
Eメール:f_aitk@yahoo.co.jp
URL :
タイトル:
Re^2: Datareportでのフォントの変更方法
ご返答ありがとうございます。
フォントの変更は理由は分かりませんが、DataReportのフォントを
初期値であるMSPゴシックから適当なフォントに変更して実行してみましたら
うまく、テキストごとに任意に指定したフォントに変更されました。
DataReportでしか印刷物を作成したことないので、教えていただいたHPを
参考にまた色々と勉強します。
これからも分からないことがありましたらよろしくお願いします。