DrawTextでプリンターに出力するには？ (ID:101752)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 やりたかったことの部分を抽出したコードを載せておきます。 ------------------------------------------------------- Option Explicit Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As Rect, ByVal wFormat As Long) As Long Private Declare Function StartDoc Lib "gdi32" Alias "StartDocA" (ByVal hdc As Long, lpdi As DOCINFO) As Long Private Declare Function StartPage Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function EndDoc Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function EndPage Lib "gdi32" (ByVal hdc As Long) As Long Private Type Rect Left As Long Top As Long Right As Long Bottom As Long End Type Private Type DOCINFO cbSize As Long lpszDocName As String lpszOutput As String lpszDatatype As String fwType As Long End Type Private Sub Form_Load() Dim Ret As Integer Dim Rect As Rect Dim Flag As Integer Flag = &H0 Rem StartDoc Dim di As DOCINFO Ret = StartDoc(Printer.hdc, di) Ret = StartPage(Printer.hdc) Rem Rect.Left = 100 Rect.Top = 100 Rect.Right = 300 Rect.Bottom = 200 Ret = DrawText(Printer.hdc, "abc1", Len("abc1"), Rect, Flag) Rem EndDoc Ret = EndPage(Printer.hdc) Ret = EndDoc(Printer.hdc) End Sub -------------------------------------------------------