Código vb:
Ver originaloRpt.PrintOptions.ApplyPageMargins(margins)
'+aqui en nombre de la impresora, por lo general cada una tiene un tamano de papel y margenes '+especificos y al hacer esto se ajustan automaticamente
oRpt.PrintOptions.PrinterName = "Epson SQ-1170 ESC/P 2"
oRpt.PrintOptions.PaperSource = PaperSource.Tractor
crSubReportDocument1 = oRpt.OpenSubreport("rptMyReport2.rpt")
crSubReportDocument1.SetDataSource(dsMyDataset2)
crSubReportDocument1.PrintOptions.ApplyPageMargins(margins)
CrystalReportViewer1.ReportSource = oRpt
'+ aqui colocas el tamaño del papel aunque aun no encuentro la manera de colocarlo en unidades '+metricas pero espero asi puedan servirte
CrystalReportViewer1.PrintOptions.PaperSize = PaperSize.PaperA4
esto todo mediante codigo