home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Share Gallery 1
/
share_gal_1.zip
/
share_gal_1
/
WA
/
WA821.ZIP
/
ENVELOG.EXE
/
ENVLGO.EXE
/
ENVELOGO.SMM
< prev
next >
Wrap
INI File
|
1991-11-11
|
5KB
|
351 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
PostScript Printer
[lang]
1
[desc]
Prints shaded address to EnvLogo WinApp.
689846539
15
638752801
227
1
0
0
0
0
0
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[tag]
Body Text
2
[fnt]
Tms Rmn
240
0
49152
[algn]
1
1
0
0
0
[spc]
17
0
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
0
1
0
1
1
1
1
1440
10800
0
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
0
1
0
1440
0
1
0
1
1
1
1
1440
10800
0
[txt]
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
0
1
14400
1440
0
1
0
1
1
1
1
1440
10800
0
[txt]
>
[elay]
[l1]
0
[pg]
1
44 0 12 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
[edoc]
<:#279,9360>This Ami Pro 2 macro assists EnveLogo in printing an envelope. It asks you to select the
<:#279,9360>text of the address to which the envelope will be mailed, or uses a pre-selected text range.
It then invokes EnveLogo directly, and causes it to load the selected address text from the
clipboard. The envelope is then ready to printer via the EnveLogo Print button.
<:#279,9360>
<:#279,9360>Caution: This macro wipes out the current clipboard contents.
<:#279,9360>
<+!>Note:<-!> You must adjust the "Exec" parameter below to point to the location of ENVELOGO.EXE on your system.
<:#279,9360>
<+!>Note:<-!> You can place a BMP version of the EnveLogo icon into the Ami Pro program directory;
it will then be considered a SmartIcon. You can attach this macro to that SmartIcon and then
place that icon in your SmartIcon palette. See: Tools/SmartIcons/Customize.
<:#279,9360>By: Bill Hinkle, CIS <[>75300,2050]
<:#279,9360>
<:#279,9360>FUNCTION ENVELOGO()
<:#279,9360>
<:#279,9360>While CurShade$() = ""
<:R1,1,1,720,><:#279,9360> UserControl("Select the envelope To: address, and then click on Resume...")
<:R1,1,1,720,><:#279,9360>Wend
<:R1,1,1,720,><:#279,9360>Copy() ' Copy to clipboard
<:R><:#279,9360>If AppIsRunning("ENVELOGO") then
<:R1,1,1,721,><:#279,9360> ExecCode = 0
<:R1,1,1,721,><:#279,9360> EnvOK = ActivateApp("ENVELOGO")
<:R1,1,1,721,><:#279,9360> If EnvOK then
<:R1,2,1,721,1,1430,><:#279,9360> EnvOK = AppRestore("ENVELOGO")
<:R1,2,1,721,1,1430,><:#279,9360> endif
<:R1,1,1,721,><:#279,9360>else
<:R1,1,1,737,> ExecCode = Exec("D:\windows\apps\envelogo\Envelogo.exe",1)
<:R1,2,1,737,1,1463,><:#279,9360> EnvOK = (ExecCode <;> 32)
<:R><:#279,9360>endif
<:#279,9360>If not EnvOK then
<:R1,1,1,705,><:#279,9360> Message("Unable to use Envlogo!")
<:R1,1,1,705,>else ' give Windows a moment to get the app in gear
<:R1,1,1,705,><:#279,9360> HGWas = HourGlass(1)
<:R1,1,1,705,><:#279,9360> Pause(15)
<:R1,1,1,705,><:#279,9360> HourGlass(HGWas)
<:R1,1,1,705,><:#279,9360> If ExecCode <;> 32 then ' the app isn't running yet
<:R1,2,1,705,1,1430,><:#279,9360> SendKeys("<[>Enter]<[>Tab]<[>Tab]<[>Tab]<[>Tab]<[>Tab]<[>Tab]") ' get past signon screen
<:R1,2,1,705,1,1430,><:#279,9360> endif
<:R1,2,1,705,1,1430,><:#279,9360> ' assume that if the app is already running, it is parked on the Print button
<:R1,1,1,705,><:#279,9360> SendKeys("<[>Tab]<[>Enter]") ' skip Print command & paste address
<:R1,1,1,705,><:#279,9360> endif
<:R1,1,1,720,><:#279,9360>END FUNCTION
>
[Embedded]
00004078
>
[macsum] 1
ENVELOGO 0 0 4 15
[macse]
14 ENVELOGO
0 24
13
7 ""
18 0
11 00000129
0 7 "Select the envelope To: address, and then click on Resume..."
10 00000013
2 154 1
0 1032 "ENVELOGO"
13
11 00000269
5 0
8 1
0 38 "ENVELOGO"
13
8 2
6 2
11 00000256
0 1031 "ENVELOGO"
13
8 2
10 00000348
0 22 "D:\windows\apps\envelogo\Envelogo.exe" 1
13
8 1
6 1
5 32
18 3
8 2
6 2
1 3
11 00000414
0 3 "Unable to use Envlogo!"
10 00000532
0 296 1
13
8 3
0 274 15
0 296 "{3}"
6 1
5 32
18 3
11 00000516
0 36 "[13][9][9][9][9][9][9]"
0 36 "[9][13]"
6 0
15
9
00004103