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

投稿日： 2003/07/14(Mon) 23:39
投稿者： 花ちゃん
Ｅメール：
ＵＲＬ：
タイトル： Re: 再度、印刷の質問

こういった場合数値を色々変更して試して見れば一目瞭然かと思います。
まず、色々試して見る事です。

Private Sub Command1_Click()
    With Form1
        .ScaleMode = 4
        .CurrentX = 10: .CurrentY = 3
        .FontName = "ＭＳ 明朝"　　　　　'注意　"MS明朝"　これではだめです。
        .FontSize = 12   'フォントサイズは３の倍数と教えてもらったのでは
    End With
    Me.Print "あいうえお"
    Me.Line (9.5, 2.5)-(20.5, 2.5)
    Me.Line (9.5, 4.5)-(20.5, 4.5)
    Me.Line (9.5, 2.5)-(9.5, 4.5)
    Me.Line (20.5, 2.5)-(20.5, 4.5)
    
    '又は
    
    Me.Line (9.75, 2.75)-(20.25, 2.75)
    Me.Line (9.75, 4.25)-(20.25, 4.25)
    Me.Line (9.75, 2.75)-(9.75, 4.25)
    Me.Line (20.25, 2.75)-(20.25, 4.25)
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -