Hej alla glada.

Jag vet att jag skickat detta en gång tidigare, men fick inget fungerande svar så jag provar igen.

Jag har behov av att skriva ut diverse textsträngar på skrivaren. Kruxet är att vissa av strängarna skall vara stående och vissa ska vara liggande. Det enda sättet jag har hittat för att göra något liknande är att sätta om orientation, men detta påverkar hela dokumentet och inte bara den aktuella strängen.

Hoppas jag varit något tydligare än förra gången....

Tack på förhand.

/Christian

Hej
Klistra in detta i en Form1 och experimentera
Du kan ju sedan byta ut Form1 mot Printer Objektet

Option Explicit
DefLng A-Z
Private Sub Command1_Click()
Call VertikalText("SvenPon är bäst")
End Sub

Private Sub VertikalText(ByVal InText As String)
Dim YTitleX, i
Dim CurChar As String
YTitleX = 300 'textens x position
Form1.CurrentY = 1000 'textens y pos
' Skriv ut vertikal (Y) titel , en bokstav i taget
Form1.FontSize = 16
Form1.FontBold = True
For i = 1 To Len(InText)
CurChar = Mid$(InText, i, 1)
Form1.CurrentX = YTitleX + TextWidth("X") _
- TextWidth(Mid$(InText, i, 1)) / 2
Form1.Print CurChar
Next 'i
End Sub
mvh
Sven

Q154515 HOWTO: Print Rotated Text Using Win32 API
http://support.microsoft.com/support/kb/articles/Q154/5/15.asp

se tidigare tråd här i forumet:
http://www.pellesoft.nu/development/forum/view.asp?msgid=4422&forumid=2

och funkar inte det beror det på buggfixar i ServicePack 2 och högre. Lösningen finns här:

PRB: Printing Rotated Text with Visual Basic
http://support.microsoft.com/support/kb/articles/Q175/5/35.ASP

Har lagt upp exemplet i tips&tricks
http://www.pellesoft.nu/login/tips/t_view4.asp?tid=506