vbscript resize image before printing.

bobbit31

perfect, it is bigger now, but the margins have pushed it off the page, any suggestion on how to get rid of/ set the margins?  you've already got the 250 points.  I will increase it another 50 for this answer!

the below set's top, bottom, left, and right margins to .25"

    With Doc.PageSetup
        .TopMargin = InchesToPoints(0.25)
        .BottomMargin = InchesToPoints(0.25)
        .LeftMargin = InchesToPoints(0.25)
        .RightMargin = InchesToPoints(0.25)
        .Gutter = InchesToPoints(0)
    End With

also, for future reference, a good way to figure out how to do the above things is to open up word, and record a macro (of what you are trying to do)... then go in and edit the macro to see what the code should be. :)

bobbit

i get a type mismatch error for Inches to points

this is what i have so far:

wdOrientLandscape=1
 Set Args=WScript.Arguments
 FileName=Args(0)
 Set Word = WScript.CreateObject("Word.Application")
 
 Word.Documents.Add
 Set Doc = Word.ActiveDocument
 With Doc.PageSetup
       .TopMargin = InchesToPoints(0.25)
       .BottomMargin = InchesToPoints(0.25)
       .LeftMargin = InchesToPoints(0.25)
       .RightMargin = InchesToPoints(0.25)
       .Gutter = InchesToPoints(0)
   End With

 Doc.InlineShapes.AddPicture FileName, True, False
 Doc.InlineShapes(1).Height =566
 Doc.InlineShapes(1).Width =765
 Doc.PageSetup.Orientation = wdOrientLandscape
 Doc.PrintOut
 Word.ActiveDocument.Close False
 Word.Quit

oh yeah, sorry ;)

.TopMargin = Doc.Application.InchesToPoints(0.25)

etc...

ok, this is what i have, but i am still getting the same error:

wdOrientLandscape=1
 Set Args=WScript.Arguments
 FileName=Args(0)
 Set Word = WScript.CreateObject("Word.Application")
 
 Word.Documents.Add
 Set Doc = Word.ActiveDocument
 With Doc.PageSetup
       .TopMargin = Doc.Application.InchesToPoints(0.25)
       .BottomMargin = InchesToPoints(0.25)
       .LeftMargin = InchesToPoints(0.25)
       .RightMargin = InchesToPoints(0.25)
       .Gutter = InchesToPoints(0)
   End With

 Doc.InlineShapes.AddPicture FileName, True, False
 Doc.InlineShapes(1).Height =566
 Doc.InlineShapes(1).Width =765
 Doc.PageSetup.Orientation = wdOrientLandscape

 Doc.PrintOut
 Word.ActiveDocument.Close False
 Word.Quit

bobbit.

That did it, and thank you so much!

I have been playing with recording macros, and began to make some headway, but you were more helpful.  Thanks again!

no prob, good luck w/ the rest of your project!