投稿日 | : 2003/07/31(Thu) 11:05 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: printer.lineで縦線だけが出力されない |
> こちらのHPにある印刷関係の、printer.lineを使って罫線印刷する方法を
> 使わせて頂いているのですが、
ひょっとして、データーを表形式で印字する(024)のサンプルでしょうか
すみません。バグです。
CharX = Printer.TextWidth("あ") 'プリンタ上での文字の幅を取得
CharY = Printer.TextHeight("あ") 'プリンタ上での文字の高さを取得
この部分は、フォントとフォントサイズを指定後に取得しないと正しい値に
なりません。
MS 明朝の12ポイントをお使いなら
CharX = 2
CharY = 1
に変更して頂くか、下記のように表用のフォントとサイズを指定後に取得するように変更
して見て下さい。
Printer.FontSize = 12
Printer.FontName = "MS 明朝"
CharX = Printer.TextWidth("あ") 'プリンタ上での文字の幅を取得
CharY = Printer.TextHeight("あ") 'プリンタ上での文字の高さを取得