打印机字体竖着写

Question

如题   将打印机打出的字旋转90度Sub gai_ziti(Outobject1 As Object)
    Dim n_zt As LOGFONT    '字体结构
    Dim new_zt As Long '返回值
    Dim rn As Long
    n_zt.lfEscapement = 900
    n_zt.lfWidth = 5
    n_zt.lfFaceName = "楷体_GB2312"
    new_zt = CreateFontIndirect(n_zt)
    rn = SelectObject(Outobject1.hdc, new_zt)    
End Sub现象1、当outobject1为picturebox时可以
2、当outobject1为printer时没有竖着打字  
3、打印机打印了多页~~~~~~~

Answer 1

是啊，偶一向是导到EXCEL或者WORD里边打印的。