> FiveQSOを使ってまとめ印刷を行っているのですが、プリンターの関係(印刷面が上になって出るタイプ)で、JARL指定逆順を使っています。
これまでずっと使ってきたプリンタは,印刷面が下に排紙することしかできないプリンタだったので,JARL順で問題なく印刷できていました(実際にはFiveQSOは使ったこと無かった).
そのプリンタが壊れたので,安い2台のプリンタに交換.一台は印刷面が上または下(はがきの推奨は上),もう一台は印刷面が上のみ.
で,(今回とは関係ないですが)溜まったQSLカード発行の必要性からFiveQSOを改造して,相手局と当方の運用地を含めてMaxCal=8 で印刷できるようにしました.
印刷面が上になる排紙でJARL順にするには,印刷の設定でJARL逆順を指定するわけですが,当然,おっしゃるように,日付は,新しいものから古いものへとなります.私は,それで全く違和感なかったのですが...
>この辺の矛盾を解決する方法はないでしょうか。
>面倒でも、#Readk等 を使ったときの、JARL指定逆順のソートでは入力順(従来と逆)にするなど如何でしょう。
進化した最近の印刷スクリプト言語を使えば,印刷面が上排紙の場合にJARL逆順で日付順を実現可能です.
それと,[□指定して印刷]にチェックを入れると,JARL指定順,JARL指定逆順などの結果が印刷する前に見られるので,わざわざPDFなどに印刷しなくても良いのは便利ですね.
;-------------------------------------------------------
; 既成の白紙カードに直接印刷する by JG1MOU
; 1枚のカードに同一局との5交信分を印字する。
;; ただし、JARL指定順かJARL指定逆順で印字すること。
; 印刷面が上排紙の場合には,[JARL逆順]の指定で,JARL順で時間は古いものから順に印刷 by JP7CZE
; 同一コールサインが連続していない場合は、印刷しない。
#MaxCall=5; 5回分
;-------------------------
;どちらかを選択する場合,選択する側のコメントを外し,もう一方をコメントにしてください.
#Mov $$K="0" ;印刷面上排紙のプリンタで,JARL指定逆順の指定で,古い日付から印刷する場合
;#Mov $$K="1" ;印刷面下排紙のプリンタで,JARL指定順の指定で,古い日付から印刷する場合
;-------------------------
#FontName="MS ゴシック"
#FontSize=13
#FontColor=0
#FontStyle=3
#Print 80, 80, "To Radio"
#FontSize=14
#FontStyle=0
#Print 90, 150, "!cp"; To Radio
#LineS 1, 0, 0
#LineX 50, 200, 270; To Radioにアンダーラインを引く
#LineS 2, 0, 255; JARL転送枠
#LineR 395, 112, 465, 205
#LineR 485, 112, 555, 205
#LineR 575, 112, 645, 205
#LineR 665, 112, 735, 205
#LineR 755, 112, 825, 205
#LineR 845, 112, 915, 205
#FontSize = 20
#Print 394, 125, "!C1"; JARL転送枠1文字目
#Print 484, 125, "!C2"
#Print 574, 125, "!C3"
#Print 664, 125, "!C4"
#Print 754, 125, "!C5"
#Print 844, 125, "!C6"
#FontName="MS 明朝"
#FontSize=10
#FontColor=0
#FontStyle=2
#Print 10, 235, "Confirming Our QSO"
#FontName="MS ゴシック"
#FontSize=11
#FontColor=0
#FontStyle=0
#Print 30, 300, "Callsign"
#Print 320, 300, "Date"
? UTC!
#Print 540, 300, "JST"
? UTC
#Print 540, 300, "UTC"
#Print 660, 300, "RST"
#Print 760, 300, "MHz"
#Print 865, 300, "2Way"
;-----------------------------------------------
;一回目の交信記録
;#Print 20, 350, "!cp"
;#Print 260, 350, "!Dd-!DJ-!DY"; 14-Apr-2004
;#Print 520, 350, "!TH:!TM"; 時間 08:30
;#Print 670, 350, "!HR"; RST
;#PrintC 730, 350, 120,"!FR"; 周波数帯
;#PrintC 850, 350, 100,"!MD"; モード
;--------------------
#Mov $$A="!cp"
#Mov $$B="!Dd-!DJ-!DY"; 14-Apr-2004
#Mov $$C="!TH:!TM"; 時間 08:30
#Mov $$D="!HR"; RST
#Mov $$E="!FR"; 周波数帯
#Mov $$F="!MD"; モード
;-----------------------------------------------
#FontName="MS 明朝"
#FontSize=11
#FontColor=0
#FontStyle=2
#Print 20, 720, "Rig: !RG";リグ
#Print 680, 720, "INPUT !Pw W";入力
? Space! "!Hi"
#Print 20, 770, "Ant: !HimH !AN";アンテナ
? Space "!Hi"
#Print 20, 770, "Ant: !AN";アンテナ
#Print 20, 824, "Rmks: !Co";備考
#Print 20, 865, "FBなQSO有難うございました!!"
#Print 180, 1250, "by Turbo HAMLOG/Win !Vr"
#FontName="MS 明朝"
#FontSize=42
#FontColor=8421504
#FontStyle=0
#PrintL 20,1120, 10,"コールサイン"; コールサイン全角で入力
#FontColor=16711680
#PrintL 10,1110, 10,"コールサイン"; コールサインの影文字全角で入力
#FontColor=8421504
#PrintL 40,970,350,"コールサイン"; コールサイン全角で入力
#FontColor=16711935
#PrintL 30,960,350,"コールサイン"; コールサインの影文字全角で入力
#LineS 1, 0, 16711680
#LineX 20, 290, 940
;#LineX 20, 650, 940;← 交信数が決まってから引くので,ここでは引かない
#FontName="MS ゴシック"
#FontSize=12
#FontColor=0
#FontStyle=0
;-------2回〜5回目をループで印刷する ----------------------------
#Mov $$V=1; 交信数のカウンタ
#Mov $$U=4; MaxCall - 1
#Mov $$Y=410; 2回目の縦座標
;-----------------------------------------------
#DoLoop; ループ始まり
#Readj *992; 同じコールサインでなければ*992へ
;-----------------------------------------------
;#Print 20, $$Y, "!cp"
;#Print 260, $$Y, "!Dd-!DJ-!DY"; 14-Apr-2004
;#Print 520, $$Y, "!TH:!TM"; 時間 08:30
;#Print 670, $$Y, "!HR"; RST
;#PrintC 730, $$Y, 120,"!FR"; 周波数帯
;#PrintC 850, $$Y, 100,"!MD"; モード
;---------------------------
;印刷面上排紙のプリンタで,JARL指定逆順の指定で,古い日付から印刷する場合
?$$K "0"
#Mov $$A="!cp<BR>!$$A"
#Mov $$B="!Dd-!DJ-!DY<BR>!$$B"; 14-Apr-2004
#Mov $$C="!TH:!TM<BR>!$$C"; 時間 08:30
#Mov $$D="!HR<BR>!$$D"; RST
#Mov $$E="!FR<BR>!$$E"; 周波数帯
#Mov $$F="!MD<BR>!$$F"; モード
?END
;---------------------------
;印刷面下排紙のプリンタで,JARL指定順の指定で,古い日付から印刷する場合
?$$K "1"
#Mov $$A="!$$A<BR>!cp"
#Mov $$B="!$$B<BR>!Dd-!DJ-!DY"; 14-Apr-2004
#Mov $$C="!$$C<BR>!TH:!TM"; 時間 08:30
#Mov $$D="!$$D<BR>!HR"; RST
#Mov $$E="!$$E<BR>!FR"; 周波数帯
#Mov $$F="!$$F<BR>!MD"; モード
?END
;---------------------------
#Mov $$Y=$$Y+60;次の印刷縦位置(この行,"End of QSO"の縦位置を指定するために必要)
#Mov $$V=$$V+1;更新数のカウンタ
#Mov $$U=$$U-1;ループの残り回数
#EndLoop $$U; $$Uがゼロになったらループ終わり
*992
#PrintA 20, 360, 10, "!$$A"
#PrintA 260, 360, 10, "!$$B"; 14-Apr-2004
#PrintA 520, 360, 10, "!$$C"; 時間 08:30
#PrintA 670, 360, 10, "!$$D"; RST
#PrintA 760, 360, 10, "!$$E"; 周波数帯
#PrintA 850, 360, 10, "!$$F"; モード
#Mov $$A=$$V; 数値を文字列に変換
#LineX 20, $$Y, 940
#Print 180, $$Y+10, "--- End of QSO-DATA(!$$A) ---"
#Print 200, 945, "QSL#:!NO"; QSL No.印刷
? Rcv!;QSLカードの送受
#Print 580, 950, "QSL PSE"; QSL Pse
? Rcv
#Print 580, 950, "QSL TNX"; QSL Tnx
【2016/04/24(Sun) 10:26:18 投稿者により修正されました。】