Form1
Get default printer info
Form1
lblPrinter
	lblDriver
lblPort
lblLPI
Label1
Command1
Get Default Printer Info
Command2
Form_Click
GetProfileString
	lpAppName
	lpKeyName
	lpDefault
lpReturnedString
nSizeU
Command1_Clickg
lpRetStr
NumChars&
NullStr
lpRet
koRetStr
	CommaPos1`
	CommaPos2=
lblPrinter
Caption
	lblDriver
lblPort
Command2_Click
DeviceInfo
Device_Error	
	PageScale
GetDeviceCaps
Printer
LOGPIXELSX
LOGPIXELSYn
FALSEG
POINTAPI
PageSizex
Result8
Escapeu
GETPHYSPAGESIZE
Orientation
GETSETPRINTORIENT
lblOrientation
X_Size
Y_Size
Vertical_resolution
	Page_Size
lblPaperSize
lblXSize
lblYSize
lblVerticalResolution
	lblScaleX
	lblScaleYT
Lines_Per_InchB
Pixels_Per_Inch
TextMetrix
TEXTMETRIC
GetTextMetrics
tmHeight
tmExternalLeading
Lines_Per_Inch
lblLPI^
Kernel|
Command1_Click
windows"
device
Printer: "
Driver: 
Port: 
 lblOrientation.Caption = "Orientation: Portrait")
 lblOrientation.Caption = "Orientation: Landscape"
 lblOrientation.Caption = ""
  lblPaperSize.Caption = "Page Size:" + Page_Size$ + " inches"
  lblPaperSize.Caption = ""a
lblXSize.Caption = "X Size = " + Str$(X_Size!)
lblYSize.Caption = "Y Size = " + Str$(Y_Size!)
lblVerticalResolution.Caption = "Vertical Resolution = " + Str$(Vertical_resolution)
lblScaleX.Caption = "Pixels X: " + Str$(PageScale.X)
lblScaleY.Caption = "Pixels Y: " + Str$(PageScale.Y)
Command2_Click
DeviceInfo
Lines_Per_Inch