|
▼タクロー さん:
おはようございます。
>こんな感じで解決できました。あとは制御コードと格闘してきます。
>=======================================================
>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等)
を使っています。
この辺りが参考になればよいのですが・・・。
|
|