Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


28861 / 76732 ←次へ | 前へ→

【53161】Re:1行ずつ印刷のやりかた
回答  タクロー  - 07/12/17(月) 22:28 -

引用なし
パスワード
   解決の報告です。

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
2 hits

【53014】1行ずつ印刷のやりかた タクロー 07/12/11(火) 19:00 質問
【53016】Re:1行ずつ印刷のやりかた タクロー 07/12/11(火) 22:33 発言
【53017】Re:1行ずつ印刷のやりかた ichinose 07/12/11(火) 23:11 発言
【53019】Re:1行ずつ印刷のやりかた タクロー 07/12/12(水) 3:27 お礼
【53020】Re:1行ずつ印刷のやりかた ichinose 07/12/12(水) 8:20 発言
【53056】Re:1行ずつ印刷のやりかた タクロー 07/12/13(木) 0:19 お礼
【53161】Re:1行ずつ印刷のやりかた タクロー 07/12/17(月) 22:28 回答

28861 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free