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
