procedure printReceipt:
define input parameter printerName as character no-undo.
define input parameter receiptBody as character no-undo.
output through value( "lp -d" + printerName ). /* yes, I have used UNIX style syntax here. replace it with something more windows like */
put unformatted receiptBody skip.
output close.
end.
define variable rcpt as character no-undo.
rcpt = "my reciept".
run printReceipt( "printer1", rcpt ).
run printReceipt( "printer2", rcpt ).