投稿日 | : 2003/02/19(Wed) 17:37 |
投稿者 | : 椋 |
URL | : |
タイトル | : Re^8: スペース入り文字の改行 |
> 基本的に表示も印字も同じです。
> 表示位置を右の方に移動したい場合文字の前にスペースを入れますよね。
> 印刷する時の位置も同じ事がいえるかと思います。
>
> 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
深夜にもかかわらずご指導ありがとうございました。
早速朝から取り組みまして、少しずつですが印刷出来るようになりました。
ただ、CSVファイル一括取り込みで得たデータを改行させて表示が、今の時間に
なってもなかなか出来ずです(汗)自分のデータへの参照の仕方に問題があるようで。
もう少し弄ってチャレンジしてみます。それでも駄目だった時は再度お願いします。
それと、これはかなり理想の話ですが、印刷をしながらデータにスペースがあったら
改行って言う形でのプログラムの作成って出来るものですか?
今の自分には考えも付かないので到底無理だとは思うのですが、
憧れという感じで想像してしまいました。出来たら凄いな・・・と。