openconsole

STRING PrinterName = GETDEFAULTPRINTER
string PrinterKey = "HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\Print\\Printers\\" + PrinterName + "\\DsDriver"
string PaperSize

PaperSize = RegGetString(PrinterKey,"printMediaReady")

print
print
print "  The default printer is ",PrinterName
print "  The default paper size is ",PaperSize
print
print "  Press any key to end..."
print
do:until inkey$ <> ""
closeconsole
end