HSPTV!掲示板

例えば、昔のN88-BASICなどでは、プリンタに直接エスケープシーケンスを
送信できましたよね。こんな感じに↓

10 A$="CITIZEN"
20 LPRINT CHR$(&H1D);"!";CHR$(&H11);
30 LPRINT A$;
40 LPRINT CHR$(&HA);CHR$(&HA);
50 LPRINT CHR$(&H1D);"!";CHR$(&H00);
60 LPRINT A$;
70 END

　　※シチズンのプリンタマニュアルより

でもHSPには、LPRINTに該当する命令はないですよね。
たぶん、同じことをするにはデバイスを叩いてやらにゃいかんのかなあと。
しかし、目的のプリンタのデバイスコンテキストを取得するところまではできたのですが、
いざエスケープシーケンスを送る段になって「Bitbltじゃダメじゃね？(uﾟωﾟ )」と……

あと、フォントを搭載してるプリンタなら、やっぱプリンタに文字を印字させる方が
データ量少ないしきれいだよなあ、と。

以上の課題について、何らかのヒントでも結構ですので、ご教示願えたら。
よろしくお願いいたします……（；ω；）

/*DOS時代の記憶から最初に思いつくのがリダイレクトw*/

echo hoge > prn

＞echo

あっ……hspでバッチを生成して実行する手か！

fortunehill氏の着想力にはいつも感嘆いたしております。
後日試してみます、ありがとうございます！(*ﾟωﾟ*)

だめでした……（u´ω｀）

というか、よく考えたらコマンドプロンプトではプリンタ制御のためのエスケープ
シーケンスが記述できないという。無理やり書いたバッチを実行しても、
エスケープ文字の部分で「○は内部コマンドちゃうで」となってしまいます。
あと、リダイレクトでプリンタのポート名を指定しても、リダイレクトして
くれないようです。

引き続き、ご教示をお待ち申し上げております……（；ω；）

つーかプリンタのデバイスコンテキスト取得しても
其処から扱えるのはWindowsの機能だろうから、
今のOSじゃポートに直接データ流せないんじゃないか。

詳しくは知らないが「giveio.sys」で検索してみれば幸せになれるかもしれない。
文字通り聞いた事あるだけなので幸せにはなれないかもしれないが。

/*適当な事を書いた手前
　プリンタ ドライバを介さずに直接印刷スプーラと通信する方法を試して見ましたが
　家のプリンターには無視されました。　ttp://support.microsoft.com/kb/154078/ja/*/

#uselib  "winspool.drv"
#func GetDefaultPrinterA "GetDefaultPrinterA" sptr,sptr
#func OpenPrinterA       "OpenPrinterA"       sptr,sptr,sptr
#func ClosePrinter       "ClosePrinter"       sptr
#func StartDocPrinterA   "StartDocPrinterA"   sptr,sptr,sptr
#func StartPagePrinter   "StartPagePrinter"   sptr
#func WritePrinter       "WritePrinter"       sptr,sptr,sptr,sptr
#func EndPagePrinter     "EndPagePrinter"     sptr
#func EndDocPrinter      "EndDocPrinter"      sptr

  sdim ss
       xx    =  260
  GetDefaultPrinterA varptr(ss),varptr(xx)                :mes  ss
  OpenPrinterA  varptr(ss),varptr(hh),0                   :mes  hh
       ss    = "hoge"
       nn    =  varptr(ss),0,0

  StartDocPrinterA hh,1,varptr(nn)                        :mes stat ;spool

  StartPagePrinter hh                                     :mes stat
       ss    = "hoge\n"
  WritePrinter   hh,varptr(ss),strlen(ss),varptr(ii)      :mes stat :mes ii

  EndPagePrinter hh                                       :mes stat
  EndDocPrinter  hh                                       :mes stat
  ClosePrinter   hh                                       :mes stat

＞giveio.sys

ググってみましたら、これはI/Oを直接叩くためのモノですね。
ちょっと幸せな気分になりつつも、コレを使うための前提の知識を仕入れるのが
これまた大変だという。

いずれ、こういうのも使いこなせるようになりたいです。
ありがとうございます、頑張ります。（；ω；）

＞fortunehill氏

シチズンのプリンタで試したところ、なんか文字が出てきました！
しかも、通常の印刷では自動でシートカットが行われるはずが行われなかったので、
どうやら直叩きできてるようです！

ためしに、制御文字を含んだデータを送信したら、一部はうまく反映されました。
後はデータの作り方の問題だけっぽいです。これで、なんかええ感じにプリンタを
制御できそうです。


手取り足取りご教示いただきまして感謝しております。（*´ω｀*）