Visual Basic - margen superior word.basic

Life is soft - evento anual de software empresarial
 
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:margen superior word.basic

Publicado por Felipe Henríquez (17 intervenciones) el 10/08/2004 01:59:35
Que manera de especificar compeñero, mira una clienta me pidió que los margenes superior, inferior de 2 cm y margenes arriba y abajo de 2,5 cm, la margenes nunca obdecieron cuando les puse 2 o 2,5 y solo resultó con 71 para margen derecho e izquierdo y 56.6 superior e inferior, no me preguntes porque pero así me resulta bien, quizás no es la manera correcta pero me salvó del paso por ese momento.
mira el siguiente código y aplicalo en tu programa:

Dim MsWord As New Word.Application

MsWord.Selection.PageSetup.LeftMargin = 71 '// Margen Izquierdo
MsWord.Selection.PageSetup.RightMargin = 71 '// Margen Derecho
MsWord.Selection.PageSetup.TopMargin = 56.6 '// Margen Superior
MsWord.Selection.PageSetup.BottomMargin = 56.6 '// Margen Inferior

Espero haberte ayudado
Saludos
FELIPE HENRIQUEZ Chile

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar