print card landscape

[Robert Mann]

would like to change the print card script found in samples to print the
card landscape any one know what I need to change

on printThisCard thePaperSize,theMargin
  if thePaperSize is empty then put 612,792 into thePaperSize
  if theMargin is empty then put 72 into theMargin
  -- get the page area
  set the printMargins to \
     theMargin,theMargin,theMargin,theMargin
  put theMargin,theMargin, \
    item 1 of thePaperSize - theMargin, \
    item 2 of thePaperSize - theMargin \
    into destinationRect
  -- print into that rectangle
  print this card into destinationRect
end printThisCard

Thanks

Robert Mann
President
GP Racing LLC