Excel VBA質問箱 IV

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

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


29001 / 76732 ←次へ | 前へ→

【53020】Re:1行ずつ印刷のやりかた
発言  ichinose  - 07/12/12(水) 8:20 -

引用なし
パスワード
   ▼タクロー さん:
おはようございます。

>こんな感じで解決できました。あとは制御コードと格闘してきます。

>=======================================================
>Application.ActivePrinter = "NEC PC-PR201/40 on LPT1:"
'本当は、直接プリンタ名をコード内に記述するのは???
'なのですが(プリンタが変わった場合、コードの変更もしなくてはならない)、
'DOS時代の延長なのでしょうね!!201H系のプリンタなんて、もう殆どないものね!!

>Application.DisplayAlerts = False
>Sheet6.Cells(1,1) = "Titles=" & Chr$(14) & "999" & Chr$(15)

私も、DOS時代にはこのような制御コードを良く使っていました。
昔の201H系の制御コードのマニュアルが手元にあったので調べてみたら、
SO、SIコードですね!!
でも、これをExcelで印刷しても拡大されませんよ!!

前にも

www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=18464;id=excel

で同じようなご質問を受けました。
残念ながら、上記のスレッドでリンクしているサイトは消滅してしまいましたが、
201Hのプリンタがぶら下がっているPCって、古い機械なので、滅多なことは
やらないのですが、当時実は試してみました。
結果、ANKの印刷はできましたが、制御コードまでは印刷に反映されませんでした。
よって、自身のコードを投稿するのを止めてしまったのですが・・・。

上記スレッドにあるように

>API(Createfile、Writefile等)

を使っています。
この辺りが参考になればよいのですが・・・。

0 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 回答

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