SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: criman en Lunes 26 de Septiembre de 2005, 17:09

Título: Como Invertir La Hoja En Word Desde Visual
Publicado por: criman en Lunes 26 de Septiembre de 2005, 17:09

hola

necesito un pequeño favor, necesito dejar la hora horizontal pero no se cual es la propiedad indicada plisss ayuda aca les dejo el codigo, le puede servir a alguien:

Dim WordApp As Word.Application
Dim prueba As Word.Document
Dim sel As Word.Selection

Set Db = Adodc1.Recordset
Set WordApp = New Word.Application

    On Error Resume Next
        WordApp.Documents.Add
        Set prueba = WordApp.ActiveDocument
        Set sel = WordApp.Selection
       
        prueba.Tables.Add Range:=sel.Range, NumRows:=1, NumColumns:=16
       
       
        Do Until Db.EOF
           
            sel.TypeText Text:=Db!SERVICIO
            sel.MoveRight unit:=12
           
           
            Db.MoveNext
            Loop
           



    WordApp.Visible = True
    Set WordApp = Nothing

Título: Re: Como Invertir La Hoja En Word Desde Visual
Publicado por: Widark en Lunes 26 de Septiembre de 2005, 18:11

Hola criman!

Este es el codigo para poner tu hoja horizontal desde vb

Código: Text

1. NombredelDocumento.PageSetup.Orientation = wdOrientLandscape
2.  

espero te ayude.