• Viernes 17 de Mayo de 2024, 02:32

Autor Tema:  Tamaño De Papel Personalizado  (Leído 3502 veces)

User32

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Tamaño De Papel Personalizado
« en: Jueves 10 de Agosto de 2006, 20:04 »
0
Hola, soy nuevo en este foro y en esto del crystal reports, tengo la version 9.2 y como estoy iniciando tengo algunas dudas que poco a poco voy resolviendo, pero la que no encuentro ni pies ni cabeza es la siguiente:

En /Impresoras y faxes/Archivo/Propiedades del servidor, agregue un nuevo formato de papel, en realidad es el AMERICANO CONTINUO ESTANDAR (US STANDARD), con estas medidas lo guarde con otro nombre, hice mi reporte, estableci el tamaño de papel en Crystal Reports/Preparar Impresora, con mi tamaño personalizado, e hice mi reporte, hasta aqui todo bien, el problema es que cuando quiero visualizar mi reporte en pantalla, en mi pc de desarrollo todo funciona bien, veo el reporte tal cual es, pero en al pc cliente, me muestra el papel tamaño carta, y no se como hacer para cambiarlo en esa pc, pues aunque ya estableci la impresora predeterminada con el mismo tamaño de papel (tambien agregue el formato de la misma manera en esa pc), aun me muestra el tamaño carta. ¿como hago para seleccionar el papel que necesito para que se visualice el reporte en pantalla?

Estoy usando el ocx CrystalViewer para mostrarlo en un formulario......

Les agradezco mucho su ayuda, la verdad no se que solucion darle a este problema....


Gracias de antemano

Edgar

otreblanc

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: Tamaño De Papel Personalizado
« Respuesta #1 en: Jueves 7 de Septiembre de 2006, 00:18 »
0
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!