| |
▼REON さん：
おはようございます。
>現在まだ、N88-BAICで作ったも使用しています。そろそろ置き換えたいと思います。
>エクセルのマクロで、印刷ボタンを作り、ファイルを印刷する際に、ﾌﾟﾘﾝﾀの印刷ﾓｰﾄﾞを変更したいのですが、書式がわかりません。
>使用プリンタは、ｴﾌﾟｿﾝ：VP-4300、又は、NEC：PC-PR700ﾄﾞｯﾄﾌﾟﾘﾝﾀです。
>ﾌﾟﾘﾝﾀﾎﾟｰﾄは、ＬＰＴ１です。
>BASICでの制御コードは、ESC E （ｴﾘｰﾄﾓｰﾄﾞ設定）
> LPRINT CHR$(27);"E";
> 又は
> LPRINT CHR$(&H1B);CHR$(&H45);
>
>これをVBAに置き換えることは可能でしょうか？
確認していませんが、API（Createfile、Writefile等）を使用すれば、可能かも
しれませんが・・・。
http://webclub.kcom.ne.jp/mc/kitkoubo/tuusin11.html
↑ここにそれらしいサイトがありました（私が確認していませんが、ちょっと
検討してみて下さい。）。
でもね・・・・。
私も旧Basicのコードは結構持っているんですが、
印刷関連をこのような方法で書き換えてはいません。
>LPRINT CHR$(27);"E";
って、文字の拡大・縮小でしたっけ？
Excelのシート等にデータを設定して書式でセルのフォントサイズの変更
を行った後、印刷という手順で処理する方法では問題がありますか？
以下のコードは一例ですが、
'============================================
Sub test()
Range("a1").Value = "aaaaaa"
With Range("a1").Font
.Name = "ＭＳ Ｐゴシック"
.Size = 22
End With
ActiveSheet.PrintOut
End Sub
場合によっては､大きいコード変更になってしまうかもしれませんが・・・。
|
|
ichinose
- 04/9/27(月) 9:56 -
