ab.com コミュニティ

結局、LPrint Usingを使用しない方法を取りました。

数字をカンマ付きで指定文字数に変換する関数。
数字をカンマ無しで指定文字数に変換する関数。
文字列を指定文字数にそろえる関数。

上記を作成し、置き換えました。
コンパイルしても印刷時に終了しなくなりました。

デバッグ時とＥＸＥで文字の大きさが変わってしまうのは仕方がないのかなぁ。
印刷用のフォントの指定をする方法などありませんか？

A$="（有）ＡＢＣＤＥＦ"
B=203
C=1
D$="Aタイプ（汎用品）"

selectprinter
LPRINT A$;B;C;D$
LPRINT Using "### #### &                    & &                    & ";C,B,D$,A$
A$="（株）１２３４５６"
B=204
C=2
D$="Bタイプ（汎用品）"
LPRINT Using "### #### &                    & &                    & ";C,B,D$,A$
Lprint Chr$(12)
end

LPRINT USING なんですが、全く効果を発揮していないようです。

[hide][code]A$="（有）ＡＢＣＤＥＦ"
B=203
C=1
D$="Aタイプ（汎用品）"

selectprinter
LPRINT A$;B;C;D$
LPRINT Using "### #### & & & & ";C,B,D$,A$
A$="（株）１２３４５６"
B=204
C=2
D$="Bタイプ（汎用品）"
LPRINT Using "### #### & & & & ";C,B,D$,A$
Lprint Chr$(12)
end[/code][/hide]

この場合印刷時に終了してしまうことはありませんが、
指定した書式で印刷できず、ただの変数の値の羅列になります。
また、「Ｕｓｉｎｇ」も変数と見なされるようで、先頭に「０」が印字されます。
Const Using=""　としておけば、印刷されません。

何か特別な記述が必要なのでしょうか。
また、私だけなのかな。

フォルダは分けてますが、Ｖ２，Ｖ３，Ｖ４と３つのＶｅｒを入れてあります。
この辺りも影響しているのでしょうか？
お力を貸してください。

よろしくお願いします。

LPRINT USING "###,###";V

ありがとうございます。

SelectPrinter は使用しています。
無指定で、ダイアログを表示するようにしています。

いろいろ試しているのですが、LPRINT USINGの記述の仕方が問題みたいです。

カンマ区切りで表示させたいので
[code]LPRINT USING "###,###";V[/code]
と記述すると、デバッグでは正常に出力されるのですが、
コンパイルすると終了してしまいます。

"(" ")" 等が入っていても正常に文字入らない様な気がします。

代用できるようにFUNCTION作らないといけないかなぁと思い始めました。
回避できるような方法何かないものでしょうか。

試しもせずに、失礼しました。
久しぶりにＡＢ２を使ってみました。

ＬＰＲＩＮＴ　ＵＳＩＮＧを行う前に、プリンタを指定すれば、動作します。
こんな感じです。

SelectPrinter "Adobe PDF"

>いずれはプロンプトウインドウを使わない様にしていきたいので中間としてＡＢが丁度よいと思いチャレンジしています。

チャレンジの第１歩として、ＡＰＩを使用しデホルトプリンタ名を取得するコードを書いてみては如何でしょうか？

返信ありがとうございます。

>試していませんが、３個目のＬＰＲINTの”V*A”は、”Ｖ，Ａ”ではないですか？
>変数が１個不足している様子ですが・・・

”　”内に７カ所、変数も７個（最後の###はカンマ区切り９桁あります）
変数もV*Aで合っています。
”　”内の記述の仕方で、何か認識間違いしているのかな？と思うのですがひらめきません。

>あと、個人的な意見ですが昔のＢＡＳＩＣからの移植でしたら、ＦＢＡＳＩＣや
>Ｎ８８互換ＢＡＳＩＣ等の方が楽ですょ。

そうなのかもしれません。最終的にEXEにコンパイルして使用したいのと、
いずれはプロンプトウインドウを使わない様にしていきたいので中間としてＡＢが丁度よいと思いチャレンジしています。
後一歩かなぁと思えばこのまま仕上げたいんですけどねぇ

よろしくお願いします。

試していませんが、３個目のＬＰＲINTの”V*A”は、”Ｖ，Ａ”ではないですか？
変数が１個不足している様子ですが・・・

あと、個人的な意見ですが昔のＢＡＳＩＣからの移植でしたら、ＦＢＡＳＩＣや
Ｎ８８互換ＢＡＳＩＣ等の方が楽ですょ。

print "プリント前":LPRINT USING "#### ####  ###### ######  ######)";K,I,DA,UN,CT;:LPRINT T$;:LPRINT USING "######) &        & &                 & &   & ###,### ###,### ###,###,###";CS,A$,B$,C$,V,A,V*A
print "プリント後":T#=T#+V*A:V#=V#+V

AB V2.62使って古いBASICプログラムの再生をしてます。
できるだけ、修正する箇所を減らしたいがためにV2.62を使用しています。

デバッガでは何とか正常（？）に動作するようになっているのですが、コンパイルしEXEで実行すると、LPRINTした後画面が閉じて終了してしまいます。
詳しくはLPRINT USINGなのですが・・・

環境はWinXPPro　ネットワークプリンタ（コニカ複合機）です。

V2.62はサポート終了とのことであきらめるしかないかとも思ってますが、どなたかお力を貸してください。
よろしくお願いします。

止まる場所：
[code]print "プリント前":LPRINT USING "#### #### ###### ###### ######)";K,I,DA,UN,CT;:LPRINT T$;:LPRINT USING "######) & & & & & & ###,### ###,### ###,###,###";CS,A$,B$,C$,V,A,V*A
print "プリント後":T#=T#+V*A:V#=V#+V
[/code]
画面に「プリント後」と表示される前に終了します。