?
Solved

MS Word 2003 Basic + VS.Net 2002 + Vertical Text

Posted on 2004-09-01
3
Medium Priority
?
303 Views
Last Modified: 2010-04-23
I need to print an address onto envelope.  Catch is I have to have the text vertically print.  I've tried some items, but have been unsuccessfull.  The envelopes do not fit into the printers horizontally (with the flap on the top).  The envelope is (in points)    width 400 X height 684.  Any Suggestions?
0
Comment
Question by:computerg33k
3 Comments
 
LVL 1

Expert Comment

by:bng0005
ID: 11955688
If you have it printing out already and just need to change the direction of the text, would creating a table in Word and changing the direction of the text work? Right click on a table cell and you can change the text direction for a particular cell. Hope that helps.



Bryan
0
 
LVL 4

Author Comment

by:computerg33k
ID: 11956392
sorry--already got it
                        Dim r As Integer, c As Integer
                        Dim oTable As Word.Table
                        oTable = wrdDoc.Tables.Add(wrdDoc.Bookmarks.Item("\endofdoc").Range, 1, 1)
                        oTable.Range.ParagraphFormat.SpaceAfter = 6
                        oTable.Range.Bold = 1
                        For r = 1 To 1
                            For c = 1 To 1
                                oTable.Cell(1, 1).Range.Text = Trim(Client) & vbCr & Trim(CompAddress1) & vbCr & Trim(CompAddress2)
                                oTable.Cell(1, 1).VerticalAlignment = Word.WdCellVerticalAlignment.wdCellAlignVerticalCenter
                            Next
                        Next
                        oTable.Cell(1, 1).Column.Width = 144
                        oTable.Cell(1, 1).Row.Height = 218.25
                        oTable.Cell(1, 1).Range.Orientation = Word.WdTextOrientation.wdTextOrientationVerticalFarEast ' this line
                    End With
0
 

Accepted Solution

by:
ee_ai_construct earned 0 total points
ID: 11959048
Closed, 200 points refunded.
ee_ai_construct (replacement part #xm34)
Community Support Moderator
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction As chip makers focus on adding processor cores over increasing clock speed, developers need to utilize the features of modern CPUs.  One of the ways we can do this is by implementing parallel algorithms in our software.   One recent…
It’s quite interesting for me as I worked with Excel using vb.net for some time. Here are some topics which I know want to share with others whom this might help. First of all if you are working with Excel then you need to Download the Following …
This Micro Tutorial will teach you how to add a cinematic look to any film or video out there. There are very few simple steps that you will follow to do so. This will be demonstrated using Adobe Premiere Pro CS6.
Despite its rising prevalence in the business world, "the cloud" is still misunderstood. Some companies still believe common misconceptions about lack of security in cloud solutions and many misuses of cloud storage options still occur every day. …

571 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question