ROTATE TEXT IN VB6 TO PRINTER

Unfortunately, the default VB6 printer object has a limited repetoire of functionality, and it doesn't including rotating text on the printer.

Fortunately one of the things it does give you is a "hDC" property, which lets you access the printing "device context", allowing you to roll your own add-on printing routines using the GDI API functions. It's a while since I've done this, and I don't have a copy of VB6 to hand, but I think you need to declare the DrawString function from the GDI library, which lets you specify things like the position, the font, the size, the angle, and of course the text to be drawn.

Good luck!

Will start searching for this kind off syntax, keep u informed

Ok, did made the changes from me.   to printer.   wil print plain horizontal line on printer with text, on screen it will create angles, what do I wrong?
Regards Jack

Did you change every instance of me to printer?


    sFont = "Times New Roman"
    For cnt = 1 To Len(sFont)
        lf.lfFaceName(cnt) = Asc(Mid$(sFont, cnt, 1))
    Next cnt
    lf.lfHeight = 48

    For cnt = 0 To 3600 Step 200
        lf.lfEscapement = cnt
        hNewFont = CreateFontIndirect(lf)
        hOldFont = SelectObject(Printer.hdc, hNewFont)
       
        Printer.CurrentX = 2000
        Printer.CurrentY = 2000
        Printer.Print "Text at an angle"
       
        SelectObject Printer.hdc, hOldFont
        DeleteObject hNewFont
    Next cnt

By the way, I seem to have left some redundant code in my original post.

Ok, got it working now,  problem was printerdriver

Glad to hear it's working.

Best of luck,

James