印刷開始をコントロールする
LPRINT CLOSE
LPRINT CHR$(12) ' 改ページ 環境の設定（１．印刷開始） 環境の設定（２．印刷の桁・行位置の調整） 環境の設定（３．宛名シールなどは難しい） PRINT ***; と LPRINT ???; の入れ子(＝大丈夫) LPRINT USING(＝大丈夫) 右寄せ・右合わせ（尻位置合わせ）表示・印刷(＝大丈夫) （TABに代わる）DEFFN / FN（命令） 右寄せ・右合わせ（尻位置合わせ）表示・印刷 ◇緊急レポート（2008/10/02） WINDOWSビスタと99Basicの相性・不具合
|
すぐ前の項で述べた方法とは別に、99Basicの環境の設定で、印刷開始時間の変更が出来ます。100 GOSUB *JOB 110 PRINT "全ての仕事が完了しまた。" 120 IF P$="y" THEN LPRINT CLOSE ' 印刷の残りがあれば完了させる 130 END 1000 *JOB 1010 FOR N=1 TO 3 1020 **************** 1140 IF P$="y" THEN LPRINT "******" 1520 **************** 1640 LPRINT "******" 1700 IF P$="y" THEN LPRINT CHR$(12) ' Nページめを強制的に印刷開始 1800 NEXT N 1850 RETURNというように、必要ならページ毎にLPRINT CHR$(12)を行い、全ての作業終了後にはLPRINT CLOSE を行っています。
宛名シールや書類作成時に桁・行位置が狂う場合は、環境の設定から変更して調整が出来ます。
宛名シールとは、例えばA4サイズの用紙に縦6列、横2列に個々シールが並ぶものを指します。2190 IX=IX+1: ' IX= 印刷ｶｳﾝﾀｰ 2200 '' IF IX=1 → 各用紙の一人目を意味する 2210 IF (IX MOD 6=1) THEN LPRINT ".": IF IX=1 THEN LPRINT ".": ' hpﾌﾟﾘﾝﾀｰ2枚目以降で1行下がりの調整 2390 IF ((IX MOD 2)=0) THEN LPRINT " " '' 更に2列目と4列目の終わりで1行増◇MOD とは
4255 FOR X=1 TO SP 4260 PRINT X, SP$(X);: IF D_OUT$="Y" THEN PRINT #4, X, SP$(X); 4265 IF P$="Y" THEN LPRINT X, SP$(X); 4270 NEXT X: PRINT "": IF P$="Y" THEN LPRINT 4275 IF D_OUT$="Y" THEN PRINT #4, "" 4295 RETURN入れ子とは、上記のように PRINT ; LPRINT ; PRINT ; LPRINT ; のように交互に連続する状態。
4255 FOR X=1 TO SP 4260 PRINT X, SP$(X);: IF D_OUT$="Y" THEN PRINT #4, X, SP$(X); 4265 IF P$="Y" THEN LPRINT X, SP$(X); 4270 NEXT X: PRINT "": IF D_OUT$="Y" THEN PRINT #4, "" 4274 IF P$="" THEN RETURN 4280 FOR X=1 TO SP 4285 IF P$="Y" THEN LPRINT X, SP$(X); 4290 NEXT X: IF P$="Y" THEN LPRINT 4295 RETURNそのためにN88互換BASICでは、上記のようにPRINT部分（4255～4270行）とLPRINT部分（4280～4290行）を分けて、PRINT ;を完結させてから、LPRINTに入る必要がある。
3010 LPRINT USING " & & ##,###,### "; MOJI$ ; SUUJI 3050 LPRINT USING " & & ##,### ##,###,### & & ##,###,###" ; MOJI1$ ; SUUJI1 ; SUUJI2 ; MOJI2$ ; SUUJI3例えばこのような使い方をして、書式を整えます。文字列は頭合わせ（左寄せ）、数字は尻合わせ（右寄せ）になります。