VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日: 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("あ")    'プリンタ上での文字の高さを取得


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- Web Forum -