margen superior word.basic
Publicado por Ricardo López (2 intervenciones) el 10/08/2004 01:33:50
Que tal compañeros
Les cuento que estoy tratando de crear un documento de word basado en un varios campos memo. Lo logro crear con un código que encontre en la web, pero el problema es que no se como cambiar el margen superior de la página que se creo ya que quiero imprimirlo en papel membretado. El código es como el siguiente:
Function CreaWord_Acta(Optional dirFilename As String) As Boolean
Dim Word As Object
Set Word = GetObject("", "Word.Basic")
With Word
.AppMaximize
.FileNew
.ViewHeader
.FormatTabs ClearAll:=1
.FormatTabs Position:="6.0" + Chr(34), _
DefTabs:="0.5" + Chr(34), _
Align:=2, _
Leader:=0
.Insert “ENCABEZADO”
.ViewHeader
.StartOfDocument
.CenterPara
.Insert "TITULO"
.LineUp
.StartOfLine
.SelectCurSentence
.CenterPara
.LineDown
.Insert Chr(13)
.Insert CampoMemo1
.Insert CampoMemo2
.ViewFooter
.StartOfLine
.Insert "" + Chr(9) + "Pág.:"
.InsertPageField
.ViewFooter
End With
Set Word = Nothing
CreaWord_Acta = True
End Function
La consulta sería si se puede aumentar el margen superior o si se puede meter unos dos renglones al comienzo de cada página.
Gracias por su ayuda.
Saludes
RAL
Les cuento que estoy tratando de crear un documento de word basado en un varios campos memo. Lo logro crear con un código que encontre en la web, pero el problema es que no se como cambiar el margen superior de la página que se creo ya que quiero imprimirlo en papel membretado. El código es como el siguiente:
Function CreaWord_Acta(Optional dirFilename As String) As Boolean
Dim Word As Object
Set Word = GetObject("", "Word.Basic")
With Word
.AppMaximize
.FileNew
.ViewHeader
.FormatTabs ClearAll:=1
.FormatTabs Position:="6.0" + Chr(34), _
DefTabs:="0.5" + Chr(34), _
Align:=2, _
Leader:=0
.Insert “ENCABEZADO”
.ViewHeader
.StartOfDocument
.CenterPara
.Insert "TITULO"
.LineUp
.StartOfLine
.SelectCurSentence
.CenterPara
.LineDown
.Insert Chr(13)
.Insert CampoMemo1
.Insert CampoMemo2
.ViewFooter
.StartOfLine
.Insert "" + Chr(9) + "Pág.:"
.InsertPageField
.ViewFooter
End With
Set Word = Nothing
CreaWord_Acta = True
End Function
La consulta sería si se puede aumentar el margen superior o si se puede meter unos dos renglones al comienzo de cada página.
Gracias por su ayuda.
Saludes
RAL
Valora esta pregunta


0