Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!uwm.edu!uakari.primate.wisc.edu!ginosko!uunet!zephyr.ens.tek.com!tekig5!freda
From: freda@tekig5.PEN.TEK.COM (Fred Azinger)
Newsgroups: comp.sys.mac.programmer
Subject: Changing Imagewrite defaults
Keywords: printing
Message-ID: <4933@tekig5.PEN.TEK.COM>
Date: 18 Oct 89 23:51:16 GMT
Organization: Tektronix Inc., Beaverton, Or.
Lines: 48

I need help with changing the default "style" for printing on a imagewriter.

My application does alot of circle drawing which I would naturally like to remain
circles when printed...the laserwriter does this just fine, however I ALWAYS need
to set TALL ADJUSTED in the sytle dialog in order for circles to come out correct
on an Imagewriter!  Since my application depends on circles being circles I want
TALL ADJUSTED to be the default style when using an imagewriter.  I know how to
sense if an imagewriter is the printer of choice, but cannot find the right location
to poke to set TALL ADJUSTED.  Inside Mac is extreamly vague on how to print and says
squat on TALL ADJUSTED.  Anyone been here before???

Thanks in advance,
Fred Azinger
Tektronix Inc.

PS: below is the (trimmed) code I am running:


procedure Print;
begin
   PrOpen;
    
   hPrint := THPrint(NewHandle(SizeOf(TPrint)));
    
   PrintDefault(hPrint);

       {****************************************************************}
       {**** CHANGE IMAGEWRITER DEFAULT STYLE TO TALL ADJUSTED HERE ****}
       {****************************************************************}
       
   PRBool := PrStlDialog(hPrint);
   PRBool := PrJobDialog(hPrint);

   myPrPort := PrOpenDoc(hPrint,NIL,NIL);      {open printing grafPort}
        
   if PrError = noErr then 
   begin
       PrOpenPage(myPrPort,NIL);               {start new page}
	
	{**** QUICKDRAW STUFF HERE ****}
            
       PrClosePage(myPrPort);
   end;
        
   PrCloseDoc(myPrPort);
   PrPicFile(hPrint,NIL,NIL,NIL,prStatus);
end;