ต้องการพิมพ์ Custom Font ออกทาง Printer ต้องทำอย่างไรค่ะ
ส้มโอสร้าง Custom Font แล้วต้องการพิมพ์ออก Printer แต่ Font ที่พิมพ์ออกมากลับไม่ใช่ Font ที่ต้องการค่ะ ไม่ทราบว่าจริงๆแล้วต้องทำอย่างไรค่ะ sourcecode ประมาณด้านล่าง จุดประสงค์คือต้องการบีบ Font ในแนว horizontal ให้น้อยลงน่ะค่ะ
hgt = 60 wid = 20 wgt = 5 newfont = CustomFont(hgt, wid, 0, 0, wgt, False, False, False, "Helvetica-Condensed-Black-Se") oldfont = SelectObject(hdc, newfont) newfont = SelectObject(hdc, oldfont)
.FontName = "newfont" .Print Label1.Caption
|