両面印刷_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 ; 終わり |
|