PC World Komputer 1998 July & August/Pcwk78b98.iso/Smart30/ENGLISH/PRODUCTS/LOTUS018.DSK/PRNSHADE.SMM

INI File | 1992-05-08 | 2KB | 226 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    Print the selected text
    Lotus WPD Marketing
    Beginner
    FileNew, Paste, UserControl
    noautorun
    705370886
    17
    671525509
    13
    1
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[tag]
    Table Text
    5
    [fnt]
        Arial
        240
        0
        16384
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        0
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Table Text
    0
    0
[l1]
    0
[pg]
    1
    28 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 0
[edoc]
<:#293,9360>Macro by <+!>Charlie Pappas<-!>

<:#284,9360>

@Function@<:#293,9360>function shadeprt()

<:#284,9360>IF IsNewWave()

<:#284,9360>    Message("Macro not available while running under HP NewWave.")

<:#284,9360>    Exit Function

<:#284,9360>ENDIF

<:#284,9360>ignorekeyboard(2)

<:#284,9360>again:

if curshade$() = "" and getmode() = 129

    usercontrol("Select only 1 cell to print, then resume")

    goto again

endif

if curshade$() = ""

<:#284,9360>    usercontrol("Select text to print, then resume")

<:#284,9360>    goto again

<:#284,9360>endif

<:#284,9360>copy()

<:#284,9360>sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")

<:#284,9360>if sty = ""

<:#284,9360>    sty = "_default.sty"

<:#284,9360>endif

<:#284,9360>new(sty, 0, 0)

<:#284,9360>paste()

<:#284,9360>fileprint

<:#284,9360>filechanged(1, 0)

<:#284,9360>fileclose()

<:#284,9360>end function

>

[Embedded]
00001831
>
[macsum] 1
shadeprt 0 0 2 2
[macse]
14 shadeprt
0 1317
13
11 00000109
0 3 "Macro not available while running under HP NewWave."
6 0
15
9
0 32 2
0 24
13
7 ""
18 0
0 29
13
5 129
18 0
1 1
11 00000241
0 7 "Select only 1 cell to print, then resume"
10 00000117
0 24
13
7 ""
18 0
11 00000330
0 7 "Select text to print, then resume"
10 00000117
2 154 1
0 286 "AmiPro" "defstyle" "amipro.ini"
13
8 1
6 1
7 ""
18 0
11 00000441
7 "_default.sty"
8 1
2 101 1 "{1}" 0 0
2 155 1
24 111
0 34 1 0
2 147 1
6 0
15
9
00001856