SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: agfed en Sábado 29 de Enero de 2005, 00:11

Título: Imprimir Desde Una Presentación Activa
Publicado por: agfed en Sábado 29 de Enero de 2005, 00:11

Estoy buscando la forma de imprimir cualquier diapositiva
desde mi presentación hecha en Power Point, y que
esta corriendo y/o ejecutandose. (No en el modo de edición).

Lo único que me ha funcionado parcialmente es una macro,
asociada a un botón.

Pero si la trato de ejecutar en una diapositiva que no sea la primera
me sigue imprimendo la primera solamente y yo quiero que me imprima
la que esta en pantalla.

La macro que logré es la siguiente:

    With ActivePresentation.PrintOptions
        .RangeType = ppPrintCurrent
        .NumberOfCopies = 1
        .Collate = msoTrue
        .OutputType = ppPrintOutputSlides
        .PrintHiddenSlides = msoTrue
        .PrintColorType = ppPrintBlackAndWhite
        .FitToPage = msoFalse
        .FrameSlides = msoFalse
        .ActivePrinter = "HP LaserJet 1100 (MS)"
    End With
    ActivePresentation.PrintOut

Título: Re: Imprimir Desde Una Presentación Activa
Publicado por: Brroz en Sábado 29 de Enero de 2005, 08:47

Hola agfed.

No estoy seguro pues nunca lo he probado en el caso concreto, pero supongo que el método PrintOut admitirá como uno de sus parámetros (como en otras ocasiones) el número de página/s que quieres imprimir. Especifícalo.

A ver si así. Chao.

Título: Re: Imprimir Desde Una Presentación Activa
Publicado por: agfed en Lunes 31 de Enero de 2005, 19:25

Si me sirvió tu sugerencia GRACIAS.