ԼDelphiдһӡôЩɻ
1.Ȣʾǰӡķֱ
WindowsµĴӡֱԴӡҪã֪ӡķֱʣڳмһУShowMessage(ˮƽֱʡ䣫inttostr(GetDeviceCaps(printerHandle,LOGPIXELSX))chr(13)䴹ֱֱʣ䣫inttostr(GetDeviceCaps(printerHandle,LOGPIXELSY)));һĿȻˡ
2.ֱ͵ӡ
Delphiṩִӡʽһǽ͵FormٵFormprint͵ӡǽֱ͵ӡõһַʽFormPrintScalԣӡĶҲ⡣˽õڶַʽ
3.ҪʹAssignPrn
AssignPrnıӡʹӡļһһϵеIJ㣺֪ǰӡȷо࣬ıεȵȡôӡCanvasԽдӡɡ
4.ôӡĵλ
ôӡκδӡ϶شӡͱıĶλù̶ĶֱͬʵĴӡЧDzͬġprinterCanvasrectangle(0,0,360,720)360360ļ4200SPܴһ1Ӣ2ӢߵľΣ600600Ļ6Lֻܴ06Ӣ12ӢߵľΡʹôӡĵΪλһǵѡ£VarPointX,PointY:integer;PointX:=GetDeviceCaps(printerHandle,LOGPIXELSX);PointY:=GetDeviceCaps(printerHandle,LOGPIXELSX);printerCanvasrectangle(0,0,PointX1,PointY2)ʹʲôĴӡܵõһ1Ӣ2ӢߵľΡ
5.ӴӡԪ
DelphiɴʱԶUSESּԪӡԪ(Printers)ȴ֮УҪʹӡͳ㻹ʵʵֹϰɡ