Hi Masters!

Help me please:

How can I setting fontsize of printer if a table width larger then the paper size?

Width of the table is unknown when the print process is starting.

Use Word as COM component

Dim wrd As New Word.Application ''Create Word application from VB
Dim St As String
wrd.Visible = True ''Word is visible
St = "c:/example.doc"
Set DocWord = WordApp.Documents.Open ''Load document
DocWord.Activate

DocWord.Application.Selection.PageSetup.Orientation = wdOrientLandscape 'Page orientation - landscape

DocWord.Application.Selection.Font.Color = wdColorBlue 'Set font color

DocWord.Application.Selection.Font.Size = 12  'Set font size

DocWord.Application.Selection.Font.Name = "Tahoma" 'Set font type

Printing

wrd.ActiveDocument.PrintOut Copies:=1, Pages:="1,2", ManualDuplexPrint:=False 'One side printing pages 1 and 2

DocWord.SaveAs "c:\DDD.doc" 'Save doc

It's not difficult!



____________________________
http://word.oflameron.ru