両面印刷_nhc.QSL


; 既成の白紙カードに両面印刷する by JG1MOU
; プリンタの設定を予め両面印刷にしておく
#SetXY -10, -30
#FontName="MS ゴシック"
#FontSize=13
#FontColor=0
#FontStyle=3
#Print 80, 80, "To Radio"
#FontSize=10
#FontStyle=0
#Print 30, 150, "!CP" ; To Radio
#FontSize=14
#LineS 1, 0, 0
#LineX 30, 190, 320 ; To Radioにアンダーラインを引く
#Mark = "*"
#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=0
? Potbl ;ポータブルか否か
#Print 160,215, "His QTH:!QT" ;コールサイン/エリア 移動地

#Print 10, 250, "Confirming Our QSO"
#FontName="MS ゴシック"
#FontSize=11
#FontColor=0
#FontStyle=0
#LineS 1, 0, 0
#LineR 8, 290, 930, 450
#LineX 8, 350, 920
#Print 140, 300, "Date"
#Print 416, 300, "Time"
#Print 560, 300, "RST"
#Print 680, 300, "MHz"
#Print 810, 300, "2Way"
#LineS 1, 0, 0
#LineY 155, 350, 100
#LineY 285, 350, 100
#LineY 390, 290, 160
#LineY 530, 290, 160
#LineY 650, 290, 160
#LineY 790, 290, 160

#FontName="Century Oldstyle Bold"
#FontSize=7
#Print 30, 350, "Year"
#Print 173, 350, "Month"
#Print 300, 350, "Day"
? UTC!
#Print 405,350,"JST"
? UTC
#Print 405,350,"UTC"

#FontName="MS 明朝"
#FontSize=12
#FontColor=0
#FontStyle=0
#Print 45, 390, "!DY" ; 年 97
#Print 190, 390, "!DJ" ; 月 Apr.
#Print 320, 390, "!Dd" ; 日 14
#Print 410, 390, "!TH:!TM" ; 時間 08:30
;#Print 555, 390, "!HR" ; RST

?Data7 "SSB"
#Print 570, 390, "!HR"
?Data7 "AM"
#Print 570, 390, "!HR"
?Data7 "FM"
#Print 570, 390, "!HR"
?Data7 "CW"
#Print 560, 390, "!HR"
?Data7 "G1D"
#Print 550, 390, "!HR"
?Data7 "PSK"
#Print 560, 390, "!HR"
?Data7 "SSTV"
#Print 560, 390, "!HR"
?Data7 "RTTY"
#Print 560, 390, "!HR"

#FontSize=11
;#Print 680, 390, "!FR" ; 周波数帯

? Freq 2             ;BANDのセンターリング
#Print 665, 390, "!F5"
? Freq 3
#Print 665, 390, "!F5"
? Freq 7
#Print 655, 390, "!F6"
? Freq 10
#Print 655, 390, "!F6"
#FontSize=10
? Freq 11
#Print 655, 390, "!F7"
? Freq 12
#Print 665, 390, "!F6"
? Freq 13
#Print 655, 390, "!F7"

#FontSize=12
;#Print 830, 390, "!MD" ; モード

? Data7 "AM"
#Print 840, 390, "AM"
? Data7 "CW"
#Print 840, 390, "CW"
? Data7 "FM"
#Print 840, 390, "FM"
? Data7 "SSB"
#Print 830, 390, "SSB"
? Data7 "G1D"
#Print 830, 390, "G1D"
? Data7 "PSK"
#Print 830, 390, "PSK"
? Data7 "RTTY"
#Print 820, 390, "RTTY"
? Data7 "SSTV"
#Print 820, 390, "SSTV"

#LineS 1, 0, 0
#FontName="MS 明朝"
#FontSize=11
#FontColor=0
#FontStyle=0

#Print 20, 500, "Rig: !RG" ;リグ
#Print 680, 500, "Power !PwW" ;入力
? Space! "!Hi"
#Print 20, 550, "Ant: !HimH !AN" ;アンテナ
? Space "!Hi"
#Print 20, 550, "Ant: !AN" ;アンテナ
#Print 20, 600, "Rmks: !Co"
#Print 200, 650, "QSL#:!No" ; QSL No.印刷

? Rcv! ;QSLカードの送受
#Print 600, 650, "QSL PSE" ; QSL Pse
? Rcv
#Print 600, 650, "QSL TNX" ; QSL Tnx

? Data13!"%"
? Data13!"/"
#Goto *10

? Data13"%"
? Data13"/"
#Goto *20

*10
#FontName="MS P明朝"
#FontSize=12
#FontColor=0x00000000
#FontStyle=1
? Data13!"%/"
#Print 250, 750, "JE4NHC   Jun Doi"

#FontName="MS P明朝"
#FontSize=12
#FontColor=0
#FontStyle=0
#Print 200, 850, "Kurashiki-City Okayama Japan"
#Print 240, 900, "JCC#3102 GL:PM64VO"
#Print 180, 950, "http://www2.kct.ne.jp/~je4nhc/"

*20
#FontName="HGep043"
#FontSize=30
#FontColor=0x00808080
#FontStyle=2
? Data13"%/"
#Print 150, 800, "JE4NHC"
#FontColor=255
? Data13"%/"
#Print 145, 790, "JE4NHC"

#FontSize=20
? Data13 "%/0"
#Print 670,825,"/0"
? Data13 "%/1"
#Print 670,825,"/1"
? Data13 "%/2"
#Print 670,825,"/2"
? Data13 "%/3"
#Print 670,825,"/3"
? Data13 "%/4"
#Print 670,825,"/4"
? Data13 "%/5"
#Print 670,825,"/5"
? Data13 "%/6"
#Print 670,825,"/6"
? Data13 "%/7"
#Print 670,825,"/7"
? Data13 "%/8"
#Print 670,825,"/8"
? Data13 "%/9"
#Print 670,825,"/9"

#FontName="MS P明朝"
#FontSize=12
#FontColor=0
#FontStyle=0

? Space "!R2" ; Remarks2に%移動先%が無かったらジャンプ
#Goto *99
#FontColor=0
#FontSize=12
#Print 0, 1000, "---------------------------------------------"
#FontSize=13
#Print 300, 1170, "!R2"
*99 ; ジャンプ先

? Space "!R1" ; Remarks1に%移動先%が無かったらジャンプ
#Goto *100
#FontColor=0
#FontSize=12
#Print 0, 1000, "---------------------------------------------"
#FontSize=13
#Print 100, 1100, "!R1 移動"

*100 ; 終わり
#FontName="MS ゴシック"
#FontSize=9
#FontColor=0x00000000
#FontStyle=0
#Print 100, 1350, "by Turbo HAMLOG/Win !Vr !NW印字"

#ExitX ; 改ページして裏面へ

? Data13!"%"
? Data13!"/"
#Goto *10

? Data13"%"
? Data13"/"
#Goto *20

*10

? Data13!"%/"
#Jpg 5,5,940,1420,"D:\無線\My QSL\je4nhc_1.jpg"

*20
? Data13"%/"
#Jpg 5,740,975,750,"D:\移動\津山市\1006012\DSCN1186.JPG"

#FontName="MS 明朝"
#FontSize=18
#FontColor=0x00000000
#FontStyle=1
? Data13"%/"
#Print 100, 50, "OKAYAMA JAPAN ZONE 25"

#FontName="HGep043"
#FontSize=40
#FontColor=0x00808080
#FontStyle=2
? Data13"%/"
#Print 60, 250, "JE4NHC"
#FontColor=255
? Data13"%/"
#Print 50, 240, "JE4NHC"

#FontSize=25
? Data13 "%/0"
#Print 750,300,"/0"
? Data13 "%/1"
#Print 750,300,"/1"
? Data13 "%/2"
#Print 750,300,"/2"
? Data13 "%/3"
#Print 750,300,"/3"
? Data13 "%/4"
#Print 750,300,"/4"
? Data13 "%/5"
#Print 750,300,"/5"
? Data13 "%/6"
#Print 750,300,"/6"
? Data13 "%/7"
#Print 750,300,"/7"
? Data13 "%/8"
#Print 750,300,"/8"
? Data13 "%/9"
#Print 750,300,"/9"

#FontName="MS P明朝"
#FontSize=14
#FontColor=0
#FontStyle=1

? Space "!R2" ; Remarks2に%移動先%が無かったらジャンプ
#Goto *99
#Print 300, 600, "!R2"
*99 ; ジャンプ先

? Space "!R1" ; Remarks1に%移動先%が無かったらジャンプ
#Goto *100
#Print 100, 500, "!R1 移動"

*100 ; 終わり
HAMLOG Ver5.15からQSLカードの両面印刷が可能になりました。
お粗末ですが、浜田さんの定義ファィルを利用して編集してみました。

常置場所&移動兼用で、使えるようにしてみました
貼り付ける写真も切り替わるようになってます。
常置場所用カード
移動用カード