Solved

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

Posted on 2004-09-01
3
296 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

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

A while ago, I was working on a Windows Forms application and I needed a special label control with reflection (glass) effect to show some titles in a stylish way. I've always enjoyed working with graphics, but it's never too clever to re-invent …
Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
In this video, viewers will be given step by step instructions on adjusting mouse, pointer and cursor visibility in Microsoft Windows 10. The video seeks to educate those who are struggling with the new Windows 10 Graphical User Interface. Change Cu…
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…

688 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