I'm not sure if you want to print the contents of fields of the cards or
the card, but this is some script which will print multiple card on one
sheet. I use it to print herbarium labels from a data base. Some of the
script hides buttons on the cards, which I do not want on the label. The
way it is set it will print six cards on a sheet, but it can be modified to
print four or eight without too much trouble. You might have to reset
margins if you wish to increase number of cards. Let me know if you have
any trouble with it.
Ed.
on mouseUp
global temp
set the printScale to .5 -- to set printing to two cards a row
put the number of last card into temp
put temp into msg
hideButtons
put (temp/6) into temp1-- to get the number of sets of six cards , temp
is # of cds
if abs (temp1) > trunc(temp1)
then put temp1 + 1 into temp1-- to get the final page if not even sets of six
go to cd 1
repeat with z = 1 to temp1
printcards
go to cd ((z*6)+1)-- to go to next set of cds to print
end repeat
restoreButtons
end mouseUp
on printCards
global temp
open printing
print 6 cards
print break
close printing
end printCards
on hideButtons
global temp
repeat with y = 1 to temp-- to hide buttons.
go to cd y
repeat with x=1 to number of background buttons
hide background button x
end repeat
hide bkgnd field "info"
end repeat
end hideButtons
on restoreButtons
global temp
repeat with y = 1 to temp
go to cd y
repeat with x= number of background buttons down to 1
show background button x
end repeat
end repeat
end restorebuttons
>--------------- MESSAGE metacard.v004.n058.9 ---------------
>
>From: Till <[EMAIL PROTECTED]>
>Subject: printing
>Date: Sun, 12 Nov 2000 17:30:12 +0100
>MIME-Version: 1.0
>Content-Type: text/plain; charset=us-ascii; x-mac-type="54455854";
>x-mac-creator="4D4F5353"
>Content-Transfer-Encoding: 7bit
>
>I tried allready before but did not get an answer. So ...
>
>I would like and I have to print the content of some stacks. And I have
>to print more then only 1 card. For instance, how would you print the
>Stack "Concepts & Techniques" so you have it afterwards as reference on
>paper?
>I tried to use the Report Generator (V1.1.) but that did not work. Is
>there a newer version? (With MetaCard 2.3.1 and MetaCard 2.3.2B4 it does
>not work at all.)
>I have to add, that I use A4 as paper size because I am living in
>Switzerland
>
>Till
*******************************************************
Ed Cawley Department of Biology
Director, Envir. Res. Center
Loras College, Dubuque,IA 52004
[EMAIL PROTECTED] 319-588-7128, FAX 319-588-7964
******************************************************
Help save HyperCard, visit http://www.hyperactivesw.com/SaveHC.html
"HyperCard: Is there anything it can't do?"
*******************************************************
Archives: http://www.mail-archive.com/[email protected]/
Info: http://www.xworlds.com/metacard/mailinglist.htm
Please send bug reports to <[EMAIL PROTECTED]>, not this list.
