Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!usc!brutus.cs.uiuc.edu!apple!jdevoto
From: jdevoto@Apple.COM (Jeanne A. E. DeVoto)
Newsgroups: comp.sys.mac.hypercard
Subject: Re: Saving and Printing Two Cards
Summary: use cantModify
Message-ID: <39224@apple.Apple.COM>
Date: 6 Mar 90 04:40:07 GMT
References: <10558@hoptoad.uucp> <39171@apple.Apple.COM> <10599@hoptoad.uucp>
Organization: Apple Computer Inc, Cupertino, CA
Lines: 54

In article <10599@hoptoad.uucp> tim@hoptoad.UUCP (Tim Maroney) writes:
[Tim wants a way to print two cards on the same page under script control]

[I suggest the following:
  on mouseUp
    open printing      -- start saving up for a print job
    print card "first card to print"
    print card "second card to print"
    close printing     -- print the job
  end mouseUp
This prints the two cards on the same page, one above the other. The print
job respects the settings in the Print Stack dialog.]

[Tim points out that the user may do a Print Stack, thus changing the
settings, and then his scripted print will use those settings rather than
the ones he wants.]

OK, how about this? Make sure the stack is set up for the settings you
want to use, then put the following in the stack script:

  on doMenu theItem
    if theItem is "Print Stack..." then
      set the cantModify of this stack to true
      send "doMenu Print Stack..." to HyperCard
      set the cantModify of this stack to false
    else
      pass doMenu
    end if
  end doMenu

This lets the user set whatever settings are desired, but since cantModify
is on, the setting changes aren't permanent.

Of course, this isn't as versatile as letting you set the Print parameters
from HyperTalk, but it'll work if you only need to use one set of
parameters.

>Also, any comments on stealing card bitmaps from the windows?

Nothing leaps to mind. If all you need is the picture, you could always
do a Select All/Copy Picture and then use an XCMD to grab the scrap, I
suppose. I'll think about it.

>"I am of the opinion that my life belongs to the whole community, and as long
> as I live it is my privilege to do for it whatever I can." -- Shaw

Hmmm....
-- 
====== jeanne a. e. devoto ========================================
 jdevoto@apple.com  |  You may not distribute this article under a
 jdevoto@well.UUCP  |  compilation copyright without my permission.
___________________________________________________________________
 Apple Computer and I are not authorized  |        CI$: 72411,165
 to speak for each other.                 |  AppleLink: SQA.TEST