VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/02/19(Wed) 00:49 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^7: スペース入り文字の改行 |
基本的に表示も印字も同じです。
表示位置を右の方に移動したい場合文字の前にスペースを入れますよね。
印刷する時の位置も同じ事がいえるかと思います。
Private Sub Command1_Click()
Dim MyName As String
MyName = "VBレスキュー(花ちゃん)"
MyName = Left$(MyName, InStr(MyName, " ") - 1) & vbCrLf & _
Mid$(MyName, InStr(MyName, " ") + 1, _
Len(MyName) - InStr(MyName, " ") + 1)
'こちらは左揃えになります。
Printer.Print MyName
'こちらは指定できます。
MyName = "VBレスキュー(花ちゃん)"
Locate 5, 3, Left$(MyName, InStr(MyName, " ") - 1)
Locate 5, 4, Mid$(MyName, InStr(MyName, " ") + 1, _
Len(MyName) - InStr(MyName, " ") + 1)
Printer.EndDoc
End Sub
'印刷位置指定用関数 キャラクターモードを mm とかにすれば mm 単位で指定できます。
'詳しくはここの印刷関係を見て下さい。
Private Sub Locate(X As Long, Y As Long, myStr As String)
With Printer
.ScaleMode = vbCharacters 'キャラクターモードに設定
.CurrentX = X '水平座標の設定
.CurrentY = Y '垂直座標の設定
End With
Printer.Print myStr '指定位置に文字列を印刷（表示）
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）