on setPrinter pFont,pSize,pHeight,pMargins,pStyle
  if pFont is empty then put "Courier" into pFont
  set printTextFont to pFont
  if pSize is empty then put "10" into pSize
  set printTextSize to pSize
  if pHeight is empty then put "13" into pHeight
  set printTextHeight to pHeight
  if pMargins is empty then put "54,36,36,36" into pMargins
  set printMargins to pMargins
  if pStyle is empty then put "plain" into pStyle
  set printTextStyle to pStyle
end setPrinter