kappalab wrote:


> I am trying to print a static text in
> an apperance button such as,
>
> appearance button 10,_activeBtn,,,,"", @r,_kControlStaticTextProc
> def SetButtonTextString( 10, "This is Appearance Button Static Text" )
>
> with "route _toPrinter". However, this
> seems not working for me.
> Does anyone know how to print a static
> text like this?
>

Between  route _toPrinter  and  route _toScreen  you must issue  
drawing and printing commands that are rendered by QuickDraw.   
Creating a control is not such a command.  A control cannot be  
created in the printer port.

If you want to print some text in the same font used by static text  
controls, you can do this:

'-----------------
dim as OSStatus  ignore

def lprint
long if ( prCancel == 0 )
route _toPrinter
ignore = fn UseThemeFont( _kThemeSystemFont, _smSystemScript )
MoveTo( 50, 200 )
print "The font used by static text controls"
route _toScreen
close lprint
end if
'-----------------

Robert P.