The number of copies to be printed can be set using the following command:

Printer.Copies = 2 'print 2 copies

To print in landscape:

Printer.Orientation = vbPROPLandscape

If you use the Printer Common Dialog to allow the user to specify the number of copies, you can do the following:

Printer.Copies = CommonDialog1.Copies