[2 days left] What’s wrong with your cloud strategy? Learn why multicloud solutions matter with Nimble Storage.Register Now

x
?
Solved

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

Posted on 2004-09-01
3
Medium Priority
?
300 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
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

On Demand Webinar - Networking for the Cloud Era

This webinar discusses:
-Common barriers companies experience when moving to the cloud
-How SD-WAN changes the way we look at networks
-Best practices customers should employ moving forward with cloud migration
-What happens behind the scenes of SteelConnect’s one-click button

Question has a verified solution.

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

Article by: jpaulino
XML Literals are a great way to handle XML files and the community doesn’t use it as much as it should.  An XML Literal is like a String (http://msdn.microsoft.com/en-us/library/system.string.aspx) Literal, only instead of starting and ending with w…
Parsing a CSV file is a task that we are confronted with regularly, and although there are a vast number of means to do this, as a newbie, the field can be confusing and the tools can seem complex. A simple solution to parsing a customized CSV fi…
How to fix incompatible JVM issue while installing Eclipse While installing Eclipse in windows, got one error like above and unable to proceed with the installation. This video describes how to successfully install Eclipse. How to solve incompa…
Want to learn how to record your desktop screen without having to use an outside camera. Click on this video and learn how to use the cool google extension called "Screencastify"! Step 1: Open a new google tab Step 2: Go to the left hand upper corn…

649 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