¿Como enviar un texto Rotado a la Impresora?

Miguel
30 de Marzo del 2004
Hola tengo una gran problema este fragmento de código me sirve para imprimir un
texto rotadondolo 90º en un PictureBox o Form usando la api CreateFont pero quisiera
enviarlo a la impresora (lineas comentadas) pero sale normal o sea sin rotar como
podria hacer ya que en la misma pasada de la impresora tengo que escribir numeros en
diferentes angulos. Desde ya eternamente agradecido.
Miguel

New_Font = CreateFont(-MulDiv(caja(i).Font.Size * Zoom, _
GetDeviceCaps(hdc, LOGPIXELSY), 72), 0, 900, _
0, 0, 0, 0,0, DEFAULT_CHARSET, _
OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, _
4, DEFAULT_PITCH, Name)

SelectObject picHidden.hdc, New_Font
'SelectObject Printer.hdc, New_Font

picHidden.CurrentX = X

picHidden.CurrentY = Y

picHidden.Print "Cadena"

'Printer.Print ""
'Printer.Print "Cadena"
'Printer.EnDoc

DeleteObject New_Font