HSPTV!掲示板

初めての投稿です。
宜しくお願いします。

紙だけ出てきてプリントできません。

下記のスクリプトの問題は何でしょうか？

#include "hspprint.as"
pos 10,128: mes "nanika "
line 10,106,600,106
line 10,164,600,164
bmpsave "c:rev.bmp"
objsize 200,40 : pos 320,256 : button goto "印　 刷" ,*印刷
stop
*印刷
cls
picload "c:rev.bmp"
execprn 3,0,0,640,240,0,0,640,240, "Raberu"
objsize 640,240
button "終　　了",*終了
stop

*終了

end

execprnのパラメータが正しくないのだと思われます。

execprnでF1を押して出るヘルプの「サンプル逆引き」にある

test2.hsp

を実行するとプリンタのIDやプリンタ側の印刷サイズも表示されるようなので、
そちらをまずは試してみてはどうでしょうか。

ＺＡＰさんありがとうございます。

IDに関しては、変更する為、test2.hspを実行して確認後にIDを振ってます。
開発は自宅で、修正程度は会社で行ってます。
入力したIDで会社の数種類のプリンターが動くのは確認済みです。

細かい話をすると、オイル交換のステッカーをラベルプリンターで行うために現在奮闘中です。
入力画面のスクリプトは完成しております。
印刷だけうまくいきません。

今までのシステムだと、文字が小さくて見えないうえに
1.車番または顧客をを検索
2.修正ボタンを押す。
3.日付の入力
4.走行距離の入力
5.保存ボタンを押す。
6.次回走行距離の修正
7.印刷ボタンを押す。
8.確認画面が出て実行ボタンを押す。
工程が多いので、

1.プログラム実行
2.走行距離は自分で入力
3.日付は自動入力で次回交換距離は自動修正し、必要な時は変更入力、
必要であればエレメント交換チェック。印刷ボタンを押す。
4.確認画面が出て印刷すれば自動終了

という流れにしたいのですが、
大きさや、プリンターを選ぶといった作業はパソコンに慣れていない方が多いので、
避けたいがためにプリントで困っているところです。

一度画像に保存して呼び出して印刷にしているのは、
exec "c:\\rev.bmp",32命令の名残です。
これだとプリント出来ますが、プリンターを選んで、サイズを選んで、
そこを間違えると他のプリンターから出力されたり、
永遠ラベルなくなるまでプリントなどという事故や、手間が増えるので、
工程を少なくしたいのです。

それとも、そもそもそこまで自動化できないのでしょうか？
（用紙選択とか印字の大きさの確認などを無しにしてという意味です）

tzrさんのスクリプトの一部を修正
（画像のロード、セーブをなくし、背景に色を付けてみた）

#include "hspprint.as"
cls 2
pos 10,128: mes "nanika "
line 10,106,600,106
line 10,164,600,164
;bmpsave "c:rev.bmp"
objsize 200,40 : pos 320,256 : button goto "印　 刷" ,*印刷
stop
*印刷
;cls
;picload "c:rev.bmp"
execprn 1,0,0,640,240,0,0,640,240, "Raberu"
objsize 640,240
button "終　　了",*終了
stop

*終了

end

上記を実行したところ、画面左上に少しだけ灰色が印刷されました。
印刷ページ内の画像サイズが小さすぎるのではないでしょうか？

test2.hspのスクリプト上で
"c:rev.bmp"
を読み込んで印刷すれば、そちらのプリンタに指定すべき適正なパラメータが判るのでは？

ＺＡＰさんありがとうございます。

背景に色が入ると
確かに印刷されましたが、
背景だけ印刷されて文字が印刷できないようです。

test2.hspで
ZOOM4.518750
で紙いっぱいに印刷されました。

文字が出ないのは、解像度の問題？
もう少しやってみます。

こんばんは。

ＺＡＰさん助けてくれてありがとうございました。

やはり解像度の問題でした。

次はラベルプリンターでどうなるかです。