Declare Function PPrtr Lib "PPRTR.DLL" (ByVal hWnd As Integer, ByVal ppSelection As Integer, ByVal PPNewValue As Integer, ByVal ppAction As Integer) As Integer
Declare Function DefPrtr Lib "PPRTR.DLL" (ByVal newone As String, ByVal oldone As String) As Integer
Declare Function Prtrs Lib "PPRTR.DLL" (ByVal plist As String) As Integer
Declare Function PrtrCap Lib "PPRTR.DLL" (ndc As DEVCAP) As Integer
Declare Function GetPrtr Lib "PPRTR.DLL" (ByVal DefPrtr As String) As Integer
Declare Function GetPort Lib "PPRTR.DLL" (ByVal ptrport As String) As Integer
Sub CLIPCAPS ()
If dc.CLIPCAPS = CP_NONE Then
list2.AddItem "CLIPCAPS: None "
Exit Sub
Else
list2.AddItem "CLIPCAPS"
End If
If dc.CLIPCAPS And CP_RECTANGLE Then
list2.AddItem " Output clipped to rectangles: Yes"