Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28867 / 76738

←次へ　｜　前へ→


	【53161】Re:１行ずつ印刷のやりかた

タクロー - 07/12/17(月) 22:28 -


	引用なし

	パスワード

解決の報告です。

OpenとPutを使った方法で解決しました。
終わってみたら少しのコードで済みました。
検索して見た人へのメモとして残しておきます。
１．通常使うプリンタ設定に関係なく制御コードをプリンタへ印刷する
２．送信のみ。インク残量などのデータ受信不可
３．通常文字と拡大文字を１行中に書くときは通常→拡大の順番にする
（修飾文字の解除はエミュレーションされない場合あり）
'==========================================
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

0 hits

▼

【53014】１行ずつ印刷のやりかた タクロー 07/12/11(火) 19:00