嘿嘿 发错了 是这样的
Private Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Boolean
lfUnderline As Boolean
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lffontname As String
End Type

Public plogfont As LOGFONT
Private Sub send_Click()
Dim hfont As Long, hfontsrc As Long
With plogfont
.lfHeight = 12
.lfWidth = 9
.lfEscapement = 0
.lfOrientation = 0
.lfWeight = FW_NORMAL
.lfItalic = False
.lfUnderline = False
.lfStrikeOut = False
.lfCharSet = DEFAULT_CHARSET
.lfOutPrecision = OUT_DEVICE_PRECIS
.lfClipPrecision = CLIP_DEFAULT_PRECIS
.lfQuality = DEFAULT_QUALITY
.lfPitchAndFamily = DEFAULT_PITCH
.lffontname = "Courier"
End With

hfont = CreateFont(plogfont)
我这样弄,还是不对啊 他说plogfont 是类型不匹配的错误,究竟该怎么改的呀 嘿嘿 在一次求救