CreateFontで回転させて印刷出来ない
こんにちは。maruru01です。
APIのCreateFont関数を使用して文字列を回転させ、それを印刷しようとしたのですが、うまくいきません。
どうもCreateFontの情報がPrinterオブジェクトに伝わってないようです。
オブジェクトをPrinterの替わりにForm1にするとちゃんと回転して表示されます。
どうすればうまくいくのでしょうか。
よろしくお願いします。
使用環境：Windows2000(SP2)、Visual Basic 6.0(SP5) EnterpriseEdition
Private Sub Command1_Click()
Dim hdc As Long
Dim FontName As String
Dim FontHeight As Long
Dim hFont As Long
Dim hFontOld As Long
Dim tempStr As String
Const DEFAULT_CHARSET = 1
tempStr = "文字列回転"
hdc = Printer.hdc
FontName = "ＭＳ Ｐゴシック"
FontHeight = 9
hFont = CreateFont(-(FontHeight * 20 / Screen.TwipsPerPixelX), 0, 900, 2700, 0, False, False, False, DEFAULT_CHARSET, False, False, False, False, FontName)
hFontOld = SelectObject(hdc, hFont)
Printer.ScaleMode = vbCentimeters
Printer.CurrentX = 2
Printer.CurrentY = 2
Printer.Print tempStr
DeleteObject SelectObject(hdc, hFontOld)
End Sub
