Nica, para imprimir horizontal no necesitas crear una nueva impresora. Debes hacer esto:
DataReport1.Orientation = rptOrientLandscape
DataReport1.Show
Y listo. Ojo, para no tener complicaciones ni sorpresas, debes tener instalado el Service Pack 6 de VB6.
Hasta el momento solo he necesitado crear diferentes impresoras cuando imprimo en diferentes tamaños de papel predeterminadamente, por ejemplo: PrinterFactura, PrinterBoleta, PrinterReporte, etc
Saludos