|
解決の報告です。
OpenとPutを使った方法で解決しました。
終わってみたら少しのコードで済みました。
検索して見た人へのメモとして残しておきます。
1.通常使うプリンタ設定に関係なく制御コードをプリンタへ印刷する
2.送信のみ。インク残量などのデータ受信不可
3.通常文字と拡大文字を1行中に書くときは通常→拡大の順番にする
(修飾文字の解除はエミュレーションされない場合あり)
'==========================================
Sub printertest()
Dim IntFileNo As Integer
IntFileNo = FreeFile
復帰 = Chr$(&HD)
改行 = Chr$(&HA)
拡大指定 = Chr$(&HE)
拡大解除 = Chr$(&HF) '解除されない場合があるので適宜リセットするといい
改ページ = Chr$(&HC)
プリンタリセット = Chr$(&H1B) & "c1"
Open "LPT1" For Binary Access Write As #IntFileNo
Put #IntFileNo, ,"ABCDEF" & 復帰 & 拡大指定 & "===" & 拡大解除
Put #IntFileNo, ,復帰 & 改行 & 改ページ & プリンタリセット
Close #IntFileNo
End Sub
|
|