J
JimS
I want to print records into a document. I would like the document to have
two columns. If the record is an even number put the text in the first
column and if its an odd number print the text in the second column. I will
then insert a text box (?) to give a small paragraph 'disclaimer' that would
be printed at the bottom of the page. I seem to be able to print down one
side of the page but I think the column object isnt there. I cant get it to
print in the second column.
' the first set of formating instructions
Selection.Font.Name = "Arial Bold"
Selection.Font.Size = 10
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Do While Not adoRS.EOF
' print the first name, last name from this record into the document.
Selection.TypeParagraph
Selection.Font.Name = "Arial Bold"
Selection.TypeText RTrim(adoRS!FIRST_NAME) & " " &
RTrim(adoRS!LAST_NAME)
Selection.TypeText " "
Selection.TypeParagraph
Selection.Font.Name = "Tahoma"
Selection.TypeText RTrim(adoRS!CITY) & ", " & RTrim(adoRS!State)
' A blank line.
' space between each record
Selection.TypeParagraph
' Move to the next record in the recordset.
adoRS.MoveNext
Loop
This print just fine. I just want to repeat in another column on the right
side of the page. Does any one have any ideas or a small example? This is
my first programmed Word doc.
Thanks a bunch!
two columns. If the record is an even number put the text in the first
column and if its an odd number print the text in the second column. I will
then insert a text box (?) to give a small paragraph 'disclaimer' that would
be printed at the bottom of the page. I seem to be able to print down one
side of the page but I think the column object isnt there. I cant get it to
print in the second column.
' the first set of formating instructions
Selection.Font.Name = "Arial Bold"
Selection.Font.Size = 10
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Do While Not adoRS.EOF
' print the first name, last name from this record into the document.
Selection.TypeParagraph
Selection.Font.Name = "Arial Bold"
Selection.TypeText RTrim(adoRS!FIRST_NAME) & " " &
RTrim(adoRS!LAST_NAME)
Selection.TypeText " "
Selection.TypeParagraph
Selection.Font.Name = "Tahoma"
Selection.TypeText RTrim(adoRS!CITY) & ", " & RTrim(adoRS!State)
' A blank line.
' space between each record
Selection.TypeParagraph
' Move to the next record in the recordset.
adoRS.MoveNext
Loop
This print just fine. I just want to repeat in another column on the right
side of the page. Does any one have any ideas or a small example? This is
my first programmed Word doc.
Thanks a bunch!