SoloCodigo

Hola!

Haber si te sirven de referencias estas lineas :

      Rs.Open myQuery, Cn, adOpenForwardOnly      
      With myReport
        .DiscardSavedData
        .Database.SetDataSource Rs
        .PaperSize = crPaperLetter
       ' OJO AQUI !!!!
        .PaperSize = crDefaultPaperSize '*** probar
        .PaperSize = crPaperFanfoldUS '*** probar
        .PaperSize = crPaperUser '*** probar

        .PaperOrientation = crPortrait
      End With
      With frmVistaPrevia
        .CRViewer.ReportSource = myReporte
        .CRViewer.ViewReport
        .Show
      End With
      Rs.Close

Es cuestion de probar con .PaperSize

Salu2!