QSL定義第3弾。アメリカン(DXサイズ)の横印刷で5QSOです。
例によって改変・配布自由です。

こうしたらもっと定義サイズがスマートになるよ、の情報大歓迎。

QSO Bankの後釜がなかなか始まりません。
紙QSLはなるべく減らして転送費用と資源節約に貢献しましょう。

※縦10QSO版はこちら
※横5QSO版はこちら

(主な仕様)
・DX、国内両対応です。判断基準はJST/UTCです。
・SAT対応。但しAO-7のModeAは非対応です。(435を判断基準にしているため)
・デジタル形式は5文字以上になると印刷範囲からはみ出るor体裁が悪いかも。
 (例:OLIVIAなど) ※MSK144は対応済
・デジタル対応のためRSTをReportに変更し、RST欄に+か-が含まれている場合、
 dBを追加印刷するようにしました。ちょっと体裁崩れるのはご勘弁。
・過去の未着QSLは請求できません。 (縦10QSOをご利用下さい。)

===============================以下定義===============================

#Yoko ; 横印刷
#Size 1400, 900 ; DXサイズ(縦90mm 横140mm)
#SetXY 0, -70 ; 印刷がずれる場合は数字を変えて下さい。
; 「QSLカード印刷」の印字位置補正でも可。

#FontName="メイリオ" ; XPの方はメイリオがありません。MSからDL可。
#FontSize=12
#FontStyle=1
#Print 200, 80, "Confirming Our QSO"

? UTC ; UTCであれば「PSE QSL」をQSL右上に赤字で印刷。
#FontColor = 0xFF ; JSTであれば印刷しません。
? UTC
#Print 1050, 80, "PSE QSL"

#FontColor=0x00FF0000 ; QSLマークが「M」の場合に青字のViaを転送枠左側に印刷。
? QslM ; ハムログのRmks1か2にマネージャーのコールを @OH2BH
#FontSize=18 ; のように書いて下さい。
? QslM
#PrintL 30, 720,90, "Via"

#LineS 2, 0, 255 ; JARL転送枠
#LineR 35, 118, 125, 185
#LineR 35, 208, 125, 275
#LineR 35, 298, 125, 365
#LineR 35, 388, 125, 455
#LineR 35, 478, 125, 545
#LineR 35, 568, 125, 635

#FontName="@MS ゴシック"
#FontSize=18
#FontColor=0
#FontStyle=0

#Print 45, 570, "!C1" ; JARL転送枠1文字目
#Print 45, 480, "!C2"
#Print 45, 390, "!C3"
#Print 45, 300, "!C4"
#Print 45, 210, "!C5"
#Print 45, 120, "!C6"

#LineS 5,0,0x00FF0000 ; QSOデータ周囲の四角枠
#LineC 170,140,1300,730,100,100

#FontName="メイリオ"
#FontSize=8
#Print 220, 160, "To Radio"
#Print 575, 160, "Date"

? UTC! ; QSOデータのJST/UTCを判定して適切な表記を印刷。
#Print 788, 160, "JST"
? UTC
#Print 788, 160, "UTC"

#Print 890, 160, "Report"
#Print 1033, 160, "MHz"
#Print 1160, 160, "2Way"

#LineS 1, 0, 16711680 ;これ以降のLineSとLineXのペアはQSOデータ欄の区切り線。
#LineX 200, 200, 1070

#Fontsize=11

? Data1 "QRP" ; /QRPのサイズ調整
#FontSize=10
? Data1 "QRP"
#Print 220, 215, "!cp"
? Data1! "QRP"
#Print 220, 210, "!cp"

#Fontsize=11

#Print 510, 210, "!DD !DJ,'!Dy"
#Print 760, 210, "!TH!TM"
#PrintC 890, 210, 95, "!HR"

?Data4 "+" ; デジタルモードの場合にdBを追加します。
#FontSize=6
?Data4 "+"
#Print 981, 232, "dB"
?Data4 "-"
#FontSize=6
?Data4 "-"
#Print 981, 232, "dB"

#FontSize=11

? Data6 "435" ;SAT(AO-07 ModeAは非対応)のサイズ調整
#Fontsize=8
? Data6 "435"
#Print 1002, 220, "!FR"
? Data6! "435"
#PrintC 1015, 210, 90, "!FR"
? Data6 "435"
#FontSize=11

? Data7 "MSK144"
#PrintC 1120, 210, 115, "!MD"
? Data7! "MSK144"
#PrintC 1140, 210, 115, "!MD"

#FontSize=9 ; Rmks2に%で区切って移動地を記入して下さい。
#Print 220, 260,"DE JO3OMA!R2" ; 例) %/3 兵庫県宝塚市(JCC#2715 GL:PM74)%
; DX局の場合は英字表記に!

#LineS 1, 0, 16711680
#LineX 200, 300, 1070

#FontSize=10

?UTC
#Print  190, 725, "TNX FB QSO! CU AGN(^^)     DE JO3OMA  Kosuke (kou) Nagai"
?UTC!
#Print  190, 725, "FBなQSOありがとうございました。  JO3OMA 長井 浩輔 (kou)"

#FontSize=9

?UTC
#Print 210,770, "*-*-*-***,Asahimachi,Takarazuka,Hyogo 665-0835 JAPAN"
?UTC
#Print 210,810, "More Info ⇒ https://www.qrz.com/db/jo3oma"

;?UTC ; ハンコ代わりに印刷。先頭の;削除で有効。
;#Jpg 1130,770,140%,140%,"D:\Data\無線関係\QSL\交信証明.jpg"

?UTC!
#Print 210,770, "Weblog : http://blog.livedoor.jp/jo3oma/"
?UTC!
#Print 210,810, "e-mail : jo3omaあっとjarl.com" ; あっと⇒@
?UTC!
#Print 210,850, "※未着QSLがありましたらメールでお知らせ下さい"

;?UTC! ; ハンコ代わりに印刷。先頭の;削除で有効。
;#Jpg 980,770,140%,140%,"D:\Data\無線関係\QSL\交信証明.jpg"
;?UTC!
;#Jpg 1130,770,145%,145%,"D:\Data\無線関係\QSL\logo2.jpg"
----------------------------------------------------------------
? Data1 "J*1***" ; 個別QSLを希望している方のコールを追記して下さい。
#Goto *900 ; 当該コール分は1QSOずつ印刷されます。
? Data1 "J*2***" ; ここが増えると処理が遅くなるかも?
#Goto *900

#Readj *900
#FontSize=11

? Data1 "QRP"
#FontSize=10
? Data1 "QRP"
#Print 220, 315, "!cp"
? Data1! "QRP"
#Print 220, 310, "!cp"

#Fontsize=11

#Print 510, 310, "!DD !DJ,'!Dy"
#Print 760, 310, "!TH!TM"
#PrintC 890, 310, 95, "!HR"

?Data4 "+"
#FontSize=6
?Data4 "+"
#Print 981, 332, "dB"
?Data4 "-"
#FontSize=6
?Data4 "-"
#Print 981, 332, "dB"

#FontSize=11

? Data6 "435"
#Fontsize=8
? Data6 "435"
#Print 1002, 320, "!FR"
? Data6! "435"
#PrintC 1015, 310, 90, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144"
#PrintC 1120, 310, 115, "!MD"
?Data7! "MSK144"
#PrintC 1140, 310, 115, "!MD"

#FontSize=9
? UTC
#Print 220, 360," !R2"
? UTC!
#Print 220, 360,"DE JO3OMA!R2"

#LineS 1, 0, 16711680
#LineX 200, 400, 1070

#Goto *950

*900
#Print  470, 320, "--- End of QSO-DATA(1) ---"
#Exit
----------------------------------------------------------------
*950
#Readj *900
#FontSize=11

? Data1 "QRP"
#FontSize=10
? Data1 "QRP"
#Print 220, 415, "!cp"
? Data1! "QRP"
#Print 220, 410, "!cp"

#Fontsize=11

#Print  510, 410, "!DD !DJ,'!Dy"
#Print 760, 410, "!TH!TM"
#PrintC 890, 410, 95, "!HR"

?Data4 "+"
#FontSize=6
?Data4 "+"
#Print 981, 431, "dB"
?Data4 "-"
#FontSize=6
?Data4 "-"
#Print 981, 431, "dB"

#FontSize=11

? Data6 "435"
#Fontsize=8
? Data6 "435"
#Print 1002, 420, "!FR"
? Data6! "435"
#PrintC 1015, 410, 90, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144"
#PrintC 1120, 410, 115, "!MD"
?Data7! "MSK144"
#PrintC 1140, 410, 115, "!MD"

#FontSize=9
? UTC
#Print 220, 460,"!R2"
? UTC!
#Print 220, 460,"DE JO3OMA!R2"

#LineS 1, 0, 16711680
#LineX 200, 500, 1070

#Goto *960

*900
#FontSize=11
#Print  470, 420, "--- End of QSO-DATA(2) ---"
#Exit
----------------------------------------------------------------
*960
#Readj *900
#FontSize=11

? Data1 "QRP"
#FontSize=10
? Data1 "QRP"
#Print 220, 515, "!cp"
? Data1! "QRP"
#Print 220, 510, "!cp"

#Fontsize=11

#Print  510, 510, "!DD !DJ,'!Dy"
#Print 760, 510, "!TH!TM"
#PrintC 890, 510, 95, "!HR"

?Data4 "+"
#FontSize=6
?Data4 "+"
#Print 981, 531, "dB"
?Data4 "-"
#FontSize=6
?Data4 "-"
#Print 981, 531, "dB"

#FontSize=11

? Data6 "435"
#Fontsize=8
? Data6 "435"
#Print 1002, 520, "!FR"
? Data6! "435"
#PrintC 1015, 510, 90, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144"
#PrintC 1120, 510, 115, "!MD"
?Data7! "MSK144"
#PrintC 1140, 510, 115, "!MD"

#FontSize=9
? UTC
#Print 220, 560,"!R2"
? UTC!
#Print 220, 560,"DE JO3OMA!R2"

#LineS 1, 0, 16711680
#LineX 200, 600, 1070

#Goto *970

*900
#FontSize=11
#Print  470, 520, "--- End of QSO-DATA(3) ---"
#Exit
----------------------------------------------------------------
*970
#Readj *900
#FontSize=11

? Data1 "QRP"
#FontSize=10
? Data1 "QRP"
#Print 220, 615, "!cp"
? Data1! "QRP"
#Print 220, 610, "!cp"

#Fontsize=11

#Print  510, 610, "!DD !DJ,'!Dy"
#Print 760, 610, "!TH!TM"
#PrintC 890, 610, 95, "!HR"

?Data4 "+"
#FontSize=6
?Data4 "+"
#Print 981, 631, "dB"
?Data4 "-"
#FontSize=6
?Data4 "-"
#Print 981, 631, "dB"

#FontSize=11

? Data6 "435"
#Fontsize=8
? Data6 "435"
#Print 1002, 620, "!FR"
? Data6! "435"
#PrintC 1015, 610, 90, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144"
#PrintC 1120, 610, 115, "!MD"
?Data7! "MSK144"
#PrintC 1140, 610, 115, "!MD"

#FontSize=9
? UTC
#Print 220, 660,"!R2"
? UTC!
#Print 220, 660,"DE JO3OMA!R2"

#LineS 1, 0, 16711680
#LineX 200, 700, 1070

#Goto *980

*900
#FontSize=11
#Print  470, 620, "--- End of QSO-DATA(4) ---"
#Exit
----------------------------------------------------------------
*980
#Exit
===============================定義終わり===============================

サンプル画像は別記事でまとめて掲載します。

QSL定義第2弾。はがきサイズの横印刷で5QSOですが、移動地毎です。
複数移動地を1枚に印刷するためには使用できません。
例によって改変・配布自由です。

こうしたらもっと定義サイズがスマートになるよ、の情報大歓迎。

QSO Bankの後釜がなかなか始まりません。
紙QSLはなるべく減らして転送費用と資源節約に貢献しましょう。

※縦10QSO版はこちら
※DXサイズ横5QSO版はこちら

DXサイズ用も作ってあります。順次UPします。

(主な仕様)
・DX、国内両対応です。判断基準はJST/UTCです。
・SAT対応。但しAO-7のModeAは非対応です。(435を判断基準にしているため)
・デジタル形式は5文字以上になると印刷範囲からはみ出るor体裁が悪いかも。
 (例:OLIVIAなど) ※MSK144は対応済
・デジタル対応のためRSTをReportに変更し、RST欄に+か-が含まれている場合、
 dBを追加印刷するようにしました。ちょっと体裁崩れるのはご勘弁。
・移動地毎での使用を前提としているため、過去の未着QSLは請求できません。
 (縦10QSOをご利用下さい。)

===============================以下定義===============================

#Yoko ; 横印刷
#Size 1480, 1000 ; 一般的なQSLサイズ(縦100mm 横1,480mm)
#SetXY -10, -70 ; 印刷がずれる場合は数字を修正して下さい。
; 「QSLカード印刷」の印字位置補正でも可

#FontName="AR丸ゴシック体E" ;フォントは適宜差し替えて下さい。
#FontSize=9
#FontColor=0x00000000
#FontStyle=1

#FontSize=12
#FontStyle=1
#Print 200, 80, "Confirming Our QSO"

? UTC ; UTCの場合のみ「PSE QSL」を右上に赤字印刷
#FontColor = 0xFF
? UTC
#Print 1050, 80, "PSE QSL"

#FontColor=0x00FF0000 ; QSLマーク「M」の場合に転送枠左側に青で「Via」
? QslM ; を印刷します。Rmks1か2の最後に @OH2BH のように
#FontSize=18 ; 記載して下さい。
? QslM
#PrintL 30, 770,90, "Via"

#LineS 2,0, 255 ; JARL転送枠
#LineR 35, 118, 125, 185
#LineR 35, 208, 125, 275
#LineR 35, 298, 125, 365
#LineR 35, 388, 125, 455
#LineR 35, 478, 125, 545
#LineR 35, 568, 125, 635

#FontName="@MS ゴシック"

#FontSize=18
#FontColor=0
#FontStyle=0

#Print 45, 570, "!C1" ; JARL転送枠1文字目
#Print 45, 480, "!C2"
#Print 45, 390, "!C3"
#Print 45, 300, "!C4"
#Print 45, 210, "!C5"
#Print 45, 120, "!C6"

#LineS 5,0,0x00008000 ; QSOデータ周囲の四角枠
#LineC 150,140,1380,710,100,100

#FontName="HG丸ゴシックM-PRO"
#FontSize=9
#FontColor=0x00000000
#FontStyle=0
#FontSize=11
#Print 200, 150, "To Radio"
#Print 550, 150, "Date"

? UTC! ; JST/UTCを判定し適切な表記を印刷します。
#Print 764, 150, "JST"
? UTC
#Print 764, 150, "UTC"

#Print 905, 150, "Report"
#Print 1070, 150, "MHz"
#Print 1220, 150, "2Way"

#LineS 1, 0, 16711680 ; QSOデータ欄の区切り線
#LineX 180, 200, 1165

? Data1 "QRP" ; /QRPのサイズ調整
#FontSize=9
? Data1 "QRP"
#Print 200, 242, "!cp"
? Data1! "QRP"
#Print 200, 235, "!cp"

#FontSize=11

#Print 490, 235, "!DD !DJ,'!Dy"
#Print 750, 235, "!TH!TM"

#PrintC 930, 235, 85, "!HR"

?Data4 "+" ; デジタルモードの場合にdBを追加します。
#FontSize=6
?Data4 "+"
#Print 1015, 250, "dB"
?Data4 "-"
#FontSize=6
?Data4 "-"
#Print 1015, 250, "dB"

#FontSize=11

? Data6 "435" ;SAT(AO-07 ModeAは非対応)のサイズ調整
#Fontsize=8
? Data6 "435"
#Print 1045, 245, "!FR"
? Data6! "435"
#PrintC 1070, 235, 85, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144" ; MSK144のサイズ調整
#FontSize=8
?Data7 "MSK144"
#PrintC 1210, 243, 105, "!MD"
?Data7! "MSK144"
#PrintC 1220, 235, 105, "!MD"

#FontSize=9
#LineS 1, 0, 16711680
#LineX 180, 300, 1165

?UTC!
#FontSize=11

?UTC
#Print  160, 730, "DE JO3OMA!R2" ; Rmks2に %/1 東京都江東区% のように移動地を
; 記載して下さい。DX局の場合は英字表記に。
; Rmks1の場合は!R2を!R1に修正。
?UTC!
#Print  150, 725, "DE JO3OMA"
?UTC!
#LineS 5, 0, 255
?UTC!
#LineX 200, 830, 1140
?UTC!
#FontSize=12
?UTC!
#Print  210, 780, "!R2"
?UTC!
#FontSize=10

?UTC ; DX局の場合はメッセージ等を英語表記に変更します。
#FontSize=11
?UTC
#FontColor=0x00FF0000
?UTC
#Print  180, 780, "Thank you for our nice QSO. FB DXing & 73!"
?UTC
#Print  650, 830, "DE JO3OMA  Kosuke (kou) Nagai"
?UTC
#FontColor=0x00000000
?UTC
#Print  320, 900, "*-*-*-***,Asahimachi,Takarazuka,Hyogo,JAPAN"
?UTC
#Print  320, 950, "I am a member of the ”Keymen's Club of Japan”."

?UTC!
#Print  150, 865, "また6mでお目にかかれる日を楽しみにしています!"
?UTC!
#Print  660, 905, "JO3OMA 長井 浩輔 (Kou)"
?UTC!
#FontSize=11

#FontColor=0x00FF0000

?UTC!
#FontSize=10
?UTC!
#Print  200, 960, "http://blog.livedoor.jp/jo3oma/   jo3omaあっとjarl.com"
; 上の「あっと」は「@」に変更を。
#FontColor=0x00000000

;?UTC! ; ハンコ代わりに印刷しています。先頭の;削除で有効に。
;#Jpg 1130,70,300%,60%,"D:\Data\****\QSL\idokichi_logo_color_400dpi.jpg"
;?UTC!
;#Jpg 1130,860,150%,150%,"D:\Data\****\QSL\交信証明.jpg"
;?UTC!
;#Jpg 1280,860,153%,153%,"D:\Data\****\QSL\logo2.jpg"
----------------------------------------------------------------
? Data1 "J*1***" ; 個別QSL希望局はここに記載して下さい。
#Goto *900 ; ここが増えると処理が遅くなるかも?
? Data1 "J*2***"
#Goto *900

#Readj *900
#FontSize=11

? Data1 "QRP"
#FontSize=9
? Data1 "QRP"
#Print 200, 342, "!cp"
? Data1! "QRP"
#Print 200, 335, "!cp"

#FontSize=11

#Print 490, 335, "!DD !DJ,'!Dy"
#Print 750, 335, "!TH!TM"
#PrintC 930, 335, 85, "!HR"

?Data4 "+"
#FontSize=6
?Data4 "+"
#Print 1015, 350, "dB"
?Data4 "-"
#FontSize=6
?Data4 "-"
#Print 1015, 350, "dB"

#FontSize=11

? Data6 "435"
#Fontsize=8
? Data6 "435"
#Print 1045, 345, "!FR"
? Data6! "435"
#PrintC 1070, 335, 85, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144"
#FontSize=8
?Data7 "MSK144"
#PrintC 1210, 343, 105, "!MD"
?Data7! "MSK144"
#PrintC 1220, 335, 105, "!MD"

#FontSize=9
#LineS 1, 0, 16711680
#LineX 180, 400, 1165

#Goto *950

*900
#Print  480, 320, "--- End of QSO-DATA(1) ---"
#Exit
----------------------------------------------------------------
*950
#Readj *900
#FontSize=11

? Data1 "QRP"
#FontSize=9
? Data1 "QRP"
#Print 200, 442, "!cp"
? Data1! "QRP"
#Print 200, 435, "!cp"

#FontSize=11

#Print 490, 435, "!DD !DJ,'!Dy"
#Print 750, 435, "!TH!TM"
#PrintC 930, 435, 85, "!HR"

?Data4 "+"
#FontSize=6
?Data4 "+"
#Print 1015, 450, "dB"
?Data4 "-"
#FontSize=6
?Data4 "-"
#Print 1015, 450, "dB"

#FontSize=11

? Data6 "435"
#Fontsize=8
? Data6 "435"
#Print 1045, 445, "!FR"
? Data6! "435"
#PrintC 1070, 435, 85, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144"
#FontSize=8
?Data7 "MSK144"
#PrintC 1210, 443, 105, "!MD"
?Data7! "MSK144"
#PrintC 1220, 435, 105, "!MD"

#FontSize=9
#LineS 1, 0, 16711680
#LineX 180, 500, 1165

#Goto *960

*900
#FontSize=11
#Print  480, 420, "--- End of QSO-DATA(2) ---"
#Exit
----------------------------------------------------------------
*960
#Readj *900
#FontSize=11

? Data1 "QRP"
#FontSize=9
? Data1 "QRP"
#Print 200, 542, "!cp"
? Data1! "QRP"
#Print 200, 535, "!cp"

#FontSize=11

#Print 490, 535, "!DD !DJ,'!Dy"
#Print 750, 535, "!TH!TM"
#PrintC 930, 535, 85, "!HR"

?Data4 "+"
#FontSize=6
?Data4 "+"
#Print 1015, 552, "dB"
?Data4 "-"
#FontSize=6
?Data4 "-"
#Print 1015, 552, "dB"

#FontSize=11

? Data6 "435"
#Fontsize=8
? Data6 "435"
#Print 1045, 545, "!FR"
? Data6! "435"
#PrintC 1070, 535, 85, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144"
#FontSize=8
?Data7 "MSK144"
#PrintC 1210, 543, 105, "!MD"
?Data7! "MSK144"
#PrintC 1220, 535, 105, "!MD"

#FontSize=9
#LineS 1, 0, 16711680
#LineX 180, 600, 1165

#Goto *970

*900
#FontSize=11
#Print  480, 520, "--- End of QSO-DATA(3) ---"
#Exit
----------------------------------------------------------------
*970
#Readj *900
#FontSize=11

? Data1 "QRP"
#FontSize=9
? Data1 "QRP"
#Print 200, 642, "!cp"
? Data1! "QRP"
#Print 200, 635, "!cp"

#FontSize=11

#Print  490, 635, "!DD !DJ,'!Dy"
#Print 750, 635, "!TH!TM"
#PrintC 930, 635, 85, "!HR"

?Data4 "+"
#FontSize=6
?Data4 "+"
#Print 1015, 653, "dB"
?Data4 "-"
#FontSize=6
?Data4 "-"
#Print 1015, 653, "dB"

#FontSize=11

? Data6 "435"
#Fontsize=8
? Data6 "435"
#Print 1045, 645, "!FR"
? Data6! "435"
#PrintC 1070, 635, 85, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144"
#FontSize=8
?Data7 "MSK144"
#PrintC 1210, 643, 105, "!MD"
?Data7! "MSK144"
#PrintC 1220, 635, 105, "!MD"

#FontSize=9

#Goto *990

*900
#FontSize=11
#Print  480, 620, "--- End of QSO-DATA(4) ---"
#Exit
----------------------------------------------------------------
*990
#Exit

===============================定義終わり===============================

サンプル画像は別記事でまとめて掲載します。

久々に更新。Hamlog用の定義です。いくつかご希望を頂いたので手を加えました。
例によって改変・配布自由です。

こうしたらもっと定義サイズがスマートになるよ、の情報大歓迎。

QSO Bankの後釜がなかなか始まりません。
紙QSLはなるべく減らして転送費用と資源節約に貢献しましょう。

移動地毎に分ける用DXサイズ用も作ってあります。順次UPします。

(主な仕様)
・DX、国内両対応です。判断基準はJST/UTCです。
・SAT対応。但しAO-7のModeAは非対応です。(435を判断基準にしているため)
・デジタル形式は5文字以上になると印刷範囲からはみ出るかも。
 (例:OLIVIAなど) ※MSK144は対応済
・デジタル対応のためRSTをReportに変更し、RST欄に+か-が含まれている場合、
 dBを追加印刷するようにしました。ちょっと体裁崩れるのはご勘弁。
・過去の未着QSLを請求できるようにしてあります。
 ※Rmksに「発行依頼」と入っているQSOが印刷対象。7QSOまでにして下さい。

===============================以下定義===============================

#FontName="MeiryoKe_PGothic" ; 標準では未インストール。適宜変更して下さい。
#FontSize=10 ; このフォントの詳細はこちら↓
#FontStyle=1 ; http://www.geocities.jp/meir000/meiryoKe/
#Print 0, 100, "Confirming Our QSO"
#FontSize=12
#FontStyle=0

#FontColor=0x00FF0000 ; QSL欄がMの時、転送枠左上にViaを青で印刷します。
? QslM ; Rmks欄の最後にマネージャーを @EA7FTR のように
#Print 310, 10, "Via" ; 入れて下さい。(@以降を全て印刷してしまうため)

#FontColor=0x00000000
#FontSize=14
#FontName="MS ゴシック"

#LineS 2, 0, 255 ; JARL転送枠
#LineR 375, 32, 445, 125
#LineR 465, 32, 535, 125
#LineR 555, 32, 625, 125
#LineR 645, 32, 715, 125
#LineR 735, 32, 805, 125
#LineR 825, 32, 895, 125

#FontSize=20 ; 相手のコールサイン
#Print 374, 45, "!C1"
#Print 464, 45, "!C2"
#Print 554, 45, "!C3"
#Print 644, 45, "!C4"
#Print 734, 45, "!C5"
#Print 824, 45, "!C6"

#LineS 1, 0, 16711680
#LineX 0, 200, 920

#FontName="MeiryoKe_PGothic"
#FontSize=11
#Print 0, 150, "To Radio"
#Print 292, 150, "Date"

? UTC!
#Print 463, 150, "JST"
? UTC
#Print 463, 150, "UTC"

#Print 565, 150, "Report"
#Print 700, 150, "MHz"
#Print 810, 150, "2Way"

? RmStr "発行依頼" ; Rmksに「発行依頼」 と入っていると、データを
#FontColor=0x000000FF ; 赤字にします。QSL未着等で再発行を依頼する時に
; 使用しますが、依頼文を追加するので7QSOまでです。

? Data1 "QRP" ; /QRPのサイズ調整 例)JO3OMA/1/QRP
#FontSize=9
? Data1 "QRP"
#Print 0, 217, "!cp"
? Data1! "QRP"
#Print 0, 210, "!cp"

#FontSize=11
#Print 240, 210, "!DD !DJ,'!Dy"
#Print 460, 210, "!TH!TM"

#PrintC 590, 210, 66, "!HR"
?Data4 "+" ; デジタルモードの場合にdBを追加します。
#FontSize=7
?Data4 "+"
#Print 660, 225, "dB"
?Data4 "-"
#FontSize=7
?Data4 "-"
#Print 660, 225, "dB"

#FontSize=11

? Data6 "435" ;SAT(AO-07 ModeAは非対応)のサイズ調整
#FontSize=8
? Data6 "435"
#Print 678, 217, "!FR"
?Data6! "435"
#PrintC 700, 210, 76, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144" ; MSK144のサイズ調整
#FontSize=10
?Data7 "MSK144"
#PrintC 790, 215, 105, "!MD"
?Data7! "MSK144"
#PrintC 810, 210, 80, "!MD"

#FontSize=9 ; Rmks2に%で区切って移動地を記入して下さい。
#Print 0, 260,"DE JO3OMA!R2" ; 例) %/3 兵庫県宝塚市(JCC#2715 GL:PM74)%
!R1にすればRmks1でOK。
; ※DX局の場合は英字にしておいて下さい。
#LineS 1, 0, 16711680
#LineX 0, 300, 920

? RmStr "発行依頼" ; Rmksに「発行依頼」がある場合に文言を追加します。
#FontSize=10
? RmStr "発行依頼"
#Print 0,980,"アワード申請のため、できましたらQSL発行をお願い致します。"
? RmStr "発行依頼"
#FontSize=9
? RmStr "発行依頼"
#Print 10,1050,"未着の方も含みます。行き違いでしたらご容赦下さい。"
? RmStr "発行依頼"
#Print 10,1090,"※赤字のQSOが発行or再発行頂きたいQSOです。"
? RmStr "発行依頼"
#LineS 1, 0, 255
? RmStr "発行依頼"
#LineX 0, 1020, 920

#FontSize=11
#FontColor=0x00000000

?UTC ; DX局(UTC)とJA局(JST)を区別して印刷内容を変えます。
#Print  0, 1210, "TNX FB QSO! CU AGN(^^) "
?UTC
#FontColor=0x000000FF
?UTC
#Print  750, 1210, "PSE QSL"
?UTC
#FontColor=0x00000000
?UTC!
#Print  0, 1210, "FBなQSOありがとうございました。"
?UTC
#Print  0, 1260, "JO3OMA OP: Kosuke (KOU) Nagai"
?UTC!
#Print  0, 1260, "JO3OMA OP: 長井 浩輔 (KOU)"

FontSize=9
?UTC
#Print 0,1310, "*-*-*-***,Asahimachi,Takarazuka,665-0835 JAPAN"
?UTC
#Print 0,1350, "More Info ⇒"
?UTC
#FontColor=0x00FF0000
?UTC
#Print 250, 1350, "https://www.qrz.com/db/jo3oma"

#FontColor=0x00000000

?UTC!
#FontSize=8
?UTC!
#Print 0,1310, "未着QSLがありましたらメールでお知らせ下さい。"

?UTC!
#FontSize=12
?UTC!
#Print 0,1350, "e-mail : jo3omaあっとjarl.com" ; @に変更して下さい。

?UTC! ; ハンコ代わりの画像ですので削除しても問題ありません。
#Jpg 630,1230,150%,150%,"D:\Data\****\QSL\交信証明.jpg"
?UTC!
#Jpg 780,1230,155%,155%,"D:\Data\****\QSL\logo2.jpg"
----------------------------------------------------------------

? Data1 "J*1***" ; 個別QSLを希望している方のコールを追記して下さい。
#Goto *900 ; 当該コール分は1QSOずつ印刷されます。

? Data1 "J*2***" ; ここが増えてくると処理が遅くなる可能性ありです。
#Goto *900

#Readj *900
#FontSize=11

? RmStr "発行依頼"
#FontColor=0x000000FF

? Data1 "QRP"
#FontSize=9
? Data1 "QRP"
#Print 0, 318, "!cp"
? Data1! "QRP"
#Print 0, 310, "!cp"

#FontSize=11
#Print 240, 310, "!DD !DJ,'!Dy"
#Print 460, 310, "!TH!TM"
#PrintC 590, 310, 66, "!HR"

?Data4 "+"
#FontSize=7
?Data4 "+"
#Print 660, 325, "dB"
?Data4 "-"
#FontSize=7
?Data4 "-"
#Print 660, 325, "dB"

#FontSize=11

? Data6 "435"
#FontSize=8
? Data6 "435"
#Print 678, 317, "!FR"
?Data6! "435"
#PrintC 700, 310, 76, "!FR"
? Data6 "435"

#FontSize=11

?Data7 "MSK144"
#FontSize=10
?Data7 "MSK144"
#PrintC 790, 315, 105, "!MD"
?Data7! "MSK144"
#PrintC 810, 310, 80, "!MD"

#FontSize=9
#Print 0, 360,"DE JO3OMA!R2"

#LineS 1, 0, 16711680
#LineX 0, 400, 920

#FontColor=0x00000000

#Goto *950

*900
#Print  200, 320, "--- End of QSO-DATA(1) ---"
#Exit

----------------------------------------------------------------

*950
#Readj *900
#FontSize=11

? RmStr "発行依頼"
#FontColor=0x000000FF

? Data1 "QRP"
#FontSize=9
? Data1 "QRP"
#Print 0, 418, "!cp"
? Data1! "QRP"
#Print 0, 410, "!cp"

#FontSize=11
#Print 240, 410, "!DD !DJ,'!Dy"
#Print 460, 410, "!TH!TM"
#PrintC 590, 410, 66, "!HR"
?Data4 "+"
#FontSize=7
?Data4 "+"
#Print 660, 425, "dB"
?Data4 "-"
#FontSize=7
?Data4 "-"
#Print 660, 425, "dB"

#FontSize=11

? Data6 "435"
#FontSize=8
? Data6 "435"
#Print 678, 417, "!FR"
?Data6! "435"
#PrintC 700, 410, 76, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144"
#FontSize=10
?Data7 "MSK144"
#PrintC 790, 415, 105, "!MD"
?Data7! "MSK144"
#PrintC 810, 410, 80, "!MD"

#FontSize=9
#Print 0, 460,"DE JO3OMA!R2"

#LineS 1, 0, 16711680
#LineX 0, 500, 920

#FontColor=0x00000000

#Goto *960

*900
#FontSize=11
#Print  200, 420, "--- End of QSO-DATA(2) ---"
#Exit

----------------------------------------------------------------

*960
#Readj *900
#FontSize=11

? RmStr "発行依頼"
#FontColor=0x000000FF

? Data1 "QRP"
#FontSize=9
? Data1 "QRP"
#Print 0, 518, "!cp"
? Data1! "QRP"
#Print 0, 510, "!cp"

#FontSize=11
#Print 240, 510, "!DD !DJ,'!Dy"
#Print 460, 510, "!TH!TM"
#PrintC 590, 510, 66, "!HR"
?Data4 "+"
#FontSize=7
?Data4 "+"
#Print 660, 525, "dB"
?Data4 "-"
#FontSize=7
?Data4 "-"
#Print 660, 525, "dB"

#FontSize=11

? Data6 "435"
#FontSize=8
? Data6 "435"
#Print 678, 517, "!FR"
?Data6! "435"
#PrintC 700, 510, 76, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144"
#FontSize=10
?Data7 "MSK144"
#PrintC 790, 515, 105, "!MD"
?Data7! "MSK144"
#PrintC 810, 510, 80, "!MD"

#FontSize=9
#Print 0, 560,"DE JO3OMA!R2"

#LineS 1, 0, 16711680
#LineX 0, 600, 920

#FontColor=0x00000000

#Goto *970

*900
#FontSize=11
#Print  200, 520, "--- End of QSO-DATA(3) ---"
#Exit

----------------------------------------------------------------

*970
#Readj *900
#FontSize=11

? RmStr "発行依頼"
#FontColor=0x000000FF

? Data1 "QRP"
#FontSize=9
? Data1 "QRP"
#Print 0, 618, "!cp"
? Data1! "QRP"
#Print 0, 610, "!cp"

#FontSize=11
#Print 240, 610, "!DD !DJ,'!Dy"
#Print 460, 610, "!TH!TM"

#PrintC 590, 610, 66, "!HR"
?Data4 "+"
#FontSize=7
?Data4 "+"
#Print 660, 625, "dB"
?Data4 "-"
#FontSize=7
?Data4 "-"
#Print 660, 625, "dB"

#FontSize=11

? Data6 "435"
#FontSize=8
? Data6 "435"
#Print 678, 617, "!FR"
?Data6! "435"
#PrintC 700, 610, 76, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144"
#FontSize=10
?Data7 "MSK144"
#PrintC 790, 615, 105, "!MD"
?Data7! "MSK144"
#PrintC 810, 610, 80, "!MD"

#FontSize=9
#Print 0, 660,"DE JO3OMA!R2"

#LineS 1, 0, 16711680
#LineX 0, 700, 920

#FontColor=0x00000000

#Goto *980

*900
#FontSize=11
#Print  200, 620, "--- End of QSO-DATA(4) ---"
#Exit

----------------------------------------------------------------

*980
#Readj *900
#FontSize=11

? RmStr "発行依頼"
#FontColor=0x000000FF

? Data1 "QRP"
#FontSize=9
? Data1 "QRP"
#Print 0, 718, "!cp"
? Data1! "QRP"
#Print 0, 710, "!cp"

#FontSize=11
#Print 240, 710, "!DD !DJ,'!Dy"
#Print 460, 710, "!TH!TM"
#PrintC 590, 710, 66, "!HR"

?Data4 "+"
#FontSize=7
?Data4 "+"
#Print 660, 725, "dB"
?Data4 "-"
#FontSize=7
?Data4 "-"
#Print 660, 725, "dB"

#FontSize=11

? Data6 "435"
#FontSize=8
? Data6 "435"
#Print 678, 717, "!FR"
?Data6! "435"
#PrintC 700, 710, 76, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144"
#FontSize=10
?Data7 "MSK144"
#PrintC 790, 715, 105, "!MD"
?Data7! "MSK144"
#PrintC 810, 710, 80, "!MD"

#FontSize=9
#Print 0, 760,"DE JO3OMA!R2"

#LineS 1, 0, 16711680
#LineX 0, 800, 920

#FontColor=0x00000000

#Goto *990

*900
#FontSize=11
#Print  200, 720, "--- End of QSO-DATA(5) ---"
#Exit

----------------------------------------------------------------

*990
#Readj *900
#FontSize=11

? RmStr "発行依頼"
#FontColor=0x000000FF

? Data1 "QRP"
#FontSize=9
? Data1 "QRP"
#Print 0, 818, "!cp"
? Data1! "QRP"
#Print 0, 810, "!cp"

#FontSize=11
#Print 240, 810, "!DD !DJ,'!Dy"
#Print 460, 810, "!TH!TM"
#PrintC 590, 810, 66, "!HR"

?Data4 "+"
#FontSize=7
?Data4 "+"
#Print 660, 825, "dB"
?Data4 "-"
#FontSize=7
?Data4 "-"
#Print 660, 825, "dB"

#FontSize=11

? Data6 "435"
#FontSize=8
? Data6 "435"
#Print 678, 817, "!FR"
?Data6! "435"
#PrintC 700, 810, 76, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144"
#FontSize=10
?Data7 "MSK144"
#PrintC 790, 815, 105, "!MD"
?Data7! "MSK144"
#PrintC 810, 810, 80, "!MD"

#FontSize=9
#Print 0, 860,"DE JO3OMA!R2"

#LineS 1, 0, 16711680
#LineX 0, 900, 920

#FontColor=0x00000000

#Goto *1000

*900
#FontSize=11
#Print  200, 820, "--- End of QSO-DATA(6) ---"
#Exit

----------------------------------------------------------------

*1000
#Readj *900
#FontSize=11

? RmStr "発行依頼"
#FontColor=0x000000FF

? Data1 "QRP"
#FontSize=9
? Data1 "QRP"
#Print 0, 918, "!cp"
? Data1! "QRP"
#Print 0, 910, "!cp"

#FontSize=11
#Print 240, 910, "!DD !DJ,'!Dy"
#Print 460, 910, "!TH!TM"
#PrintC 590, 910, 66, "!HR"

?Data4 "+"
#FontSize=7
?Data4 "+"
#Print 660, 925, "dB"
?Data4 "-"
#FontSize=7
?Data4 "-"
#Print 660, 925, "dB"

#FontSize=11

? Data6 "435"
#FontSize=8
? Data6 "435"
#Print 678, 917, "!FR"
?Data6! "435"
#PrintC 700, 910, 76, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144"
#FontSize=10
?Data7 "MSK144"
#PrintC 790, 915, 105, "!MD"
?Data7! "MSK144"
#PrintC 810, 910, 80, "!MD"

#FontSize=9
#Print 0, 960,"DE JO3OMA!R2"

#LineS 1, 0, 16711680
#LineX 0, 1000, 920

#FontColor=0x00000000

#Goto *1010

*900
#FontSize=11
#Print  200, 920, "--- End of QSO-DATA(7) ---"
#Exit

----------------------------------------------------------------

*1010
#Readj *900
#FontSize=11

? RmStr "発行依頼"
#FontColor=0x000000FF

? Data1 "QRP"
#FontSize=9
? Data1 "QRP"
#Print 0, 1018, "!cp"
? Data1! "QRP"
#Print 0, 1010, "!cp"

#FontSize=11
#Print 240, 1010, "!DD !DJ,'!Dy"
#Print 460, 1010, "!TH!TM"
#PrintC 590, 1010, 66, "!HR"

?Data4 "+"
#FontSize=7
?Data4 "+"
#Print 660, 1025, "dB"
?Data4 "-"
#FontSize=7
?Data4 "-"
#Print 660, 1025, "dB"

#FontSize=11

? Data6 "435"
#FontSize=8
? Data6 "435"
#Print 678, 1017, "!FR"
?Data6! "435"
#PrintC 700, 1010, 76, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144"
#FontSize=10
?Data7 "MSK144"
#PrintC 790, 1015, 105, "!MD"
?Data7! "MSK144"
#PrintC 810, 1010, 80, "!MD"

#FontSize=9
#Print 0, 1060,"DE JO3OMA!R2"

#LineS 1, 0, 16711680
#LineX 0, 1100, 920

#FontColor=0x00000000

#Goto *1020

*900
#FontSize=11
#Print  200, 1020, "--- End of QSO-DATA(8) ---"
#Exit

----------------------------------------------------------------

*1020
#Readj *900
#FontSize=11

? RmStr "発行依頼"
#FontColor=0x000000FF

? Data1 "QRP"
#FontSize=9
? Data1 "QRP"
#Print 0, 1118, "!cp"
? Data1! "QRP"
#Print 0, 1110, "!cp"

#FontSize=11
#Print 240, 1110, "!DD !DJ,'!Dy"
#Print 460, 1110, "!TH!TM"
#PrintC 590, 1110, 66, "!HR"

?Data4 "+"
#FontSize=7
?Data4 "+"
#Print 660, 1125, "dB"
?Data4 "-"
#FontSize=7
?Data4 "-"
#Print 660, 1125, "dB"

#FontSize=11

? Data6 "435"
#FontSize=8
? Data6 "435"
#Print 678, 1117, "!FR"
?Data6! "435"
#PrintC 700, 1110, 76, "!FR"
? Data6 "435"
#FontSize=11

?Data7 "MSK144"
#FontSize=10
?Data7 "MSK144"
#PrintC 790, 1115, 105, "!MD"
?Data7! "MSK144"
#PrintC 810, 1110, 80, "!MD"

#FontSize=9
#Print 0, 1160,"DE JO3OMA!R2"

#LineS 1, 0, 16711680
#LineX 0, 1200, 920

#FontColor=0x00000000

#Goto *1030

*900
#FontSize=11
#Print  200, 1120, "--- End of QSO-DATA(9) ---"
#Exit

----------------------------------------------------------------

*1030
#Exit

==============================定義終わり==============================

サンプル画像は別記事でまとめて掲載します。

↑このページのトップヘ