METHOD TPageScript:Init() 
  
 ::bWaterMark  := NIL                   // Codeblock for Watermark function 
 ::nWaterMark  := AWM_NONE              // Indicates if the WaterMark is to be printed foreground or background 
 ::lFromDialog := .f.                   // Indicates if printer selected from printer dialog 
 ::lClipper    := .f.                   // Indicates if calls to TextOut and TextBox should be compatible with PageScript for Clipper 
 ::nUnit       := APS_MILL              // Default unit is MILLIMETERS 
 ::aPrinters   := {}                    // List of available printers 
 ::nError      := PSE_NOERROR           // Indicates an error condition, such as no printer available 
 ::aDocInfo    := {0, "", "", APS_PORTRAIT, 1, APS_COURIER} // Print job info array 
  
 ::hDll        := DllLoad("PScript.dll") // Handle of the .DLL 
  
 if ::hDll == nil//0 
  
    ::nError := PSE_DLLNOTLOADED        // DLL not loaded error 
 else 
    ::nError := DllCall(::hDll, DLL_STDCALL, "PSInit") 
  
    // No error, set the coordinate system to TOP/LEFT (Default) 
    if ::nError == PSE_NOERROR 
       DllCall(::hDll, DLL_STDCALL, "PSSetCoorSystem", APS_TOPLEFT) 
    endif 
 endif 
  
 Return Self 
 

 
 #ifdef __HARBOUR__ 
    // 02.06.2005 - IBTC - changed for xHarbour Builder: 
    #xtranslate Method <Classname>:<x> => Method <x> 
     #include "hbclass.ch" 
    #include "Dll.ch" 
 #else 
    #include "Xbp.ch" 
    #include "Dll.ch" 
 #endif 
  
 

 
 #include "pscript.ch" 
 Func Aprints(nm) 
 local aprinters 
 local bppm:=0 
 local i 
 hb_default(@nm,"Выберите принтер") 
         
        if Psinit()==0 
 aprinters:=APSGetPrinter() 
  
  for i=1 to len(aprinters) 
 aprinters[ i ]:=" "+aprinters[ i ]+"   " 
  next 
  
  
          if len(aprinters)>1 
 bppm:=boxmenu(aprinters,; 
               10,20,11,21,nm,; 
               Psgetdefprinter(),3,"bg+/b,n/gr*,,,w/b*") 
          elseif len(aprinters)==1 
 bppm:=1      
          else   
 soob("Не найдено ни одного принтера.....","r/r","gr+/r")          
          endif 
       else 
 soob("PageScript не загружен...........","r/r","gr+/r") 
       endif  
 return bppm 
 ************ 
 Func APSGetPrinter() 
 local ret:={} 
 local nn:=PSGetPrinterCount() 
 local i 
    for i=1 to nn 
 aadd(ret,PSGetPrinterNames(i)) 
    next 
  
 return ret 
 

/*----------------------------------------------------------------------------- 
 Method .....: #GetPrinterCaps() -> aCaps 
 Description : Retreive the printer capabilities of the selected printer 
 -----------------------------------------------------------------------------*/ 
 METHOD TPageScript:GetPrinterCaps() 
  
 Local cDllTemplate 
 Local nAreaWidth 
 Local nAreaHeight 
 Local nTopMargin 
 Local nLeftMargin 
 Local nPaperWidth 
 Local nPaperHeight 
 // Local nMAreaWidth 
 // Local nMAreaHeight 
 Local nHPixelsInch 
 Local nVPixelsInch 
 Local nBitDepth 
  
 cDllTemplate := DllPrepareCall(::hDll, DLL_STDCALL, "PSGetPrinterCaps") 
  
 nAreaWidth   := DllExecuteCall(cDllTemplate, HORZRES)           // Printable Horz area (Width)    Pixels 
 nAreaHeight  := DllExecuteCall(cDllTemplate, VERTRES)           // Printable Vert area (Height)   Pixels 
 nTopMargin   := DllExecuteCall(cDllTemplate, PHYSICALOFFSETY)   // Top margin                     Pixels 
 nLeftMargin  := DllExecuteCall(cDllTemplate, PHYSICALOFFSETX)   // Left margin                    Pixels 
 nPaperWidth  := DllExecuteCall(cDllTemplate, PHYSICALWIDTH)     // Total paper width              Pixels 
 nPaperHeight := DllExecuteCall(cDllTemplate, PHYSICALHEIGHT)    // Total paper height             Pixels 
 // nMAreaWidth  := DllExecuteCall(cDllTemplate, HORZSIZE)          // Printable Horz area            mm 
 // nMAreaHeight := DllExecuteCall(cDllTemplate, VERTSIZE)          // Printable Vert area            mm 
 nHPixelsInch := DllExecuteCall(cDllTemplate, LOGPIXELSX)        // Number of Horz pixels/Inch     Pixels 
 nVPixelsInch := DllExecuteCall(cDllTemplate, LOGPIXELSY)        // Number of Vert pixels/Inch     Pixels 
 nBitDepth    := DllExecuteCall(cDllTemplate, NUMCOLORS)         // Bit depth (number of bits per pixel) 
  
 Return {nPaperWidth , ; 
         nPaperHeight, ; 
         nAreaWidth  , ; 
         nAreaHeight , ; 
         nTopMargin  , ; 
         nLeftMargin , ; 
         nHPixelsInch, ; 
         nVPixelsInch, ; 
         nBitDepth}       // <<-- ошибка вот тут 
 

Application Internal Error - D:\Z_Test\PS32\demo.exe 
 Terminated at: 2018-01-05 21:42:58 
 Неисправимая ошибка 6005: Exception error: 
  
     Exception Code:C0000005 ACCESS_VIOLATION 
     Exception Address:009F61F1 
     EAX:00000000  EBX:00FF4EB0  ECX:00000000  EDX:00000001 
     ESI:01019D90  EDI:00000000  EBP:0043EF14 
     CS:EIP:0023:009F61F1  SS:ESP:002B:0043EED8 
     DS:002B  ES:002B  FS:0053  GS:002B 
     Flags:00210202 
     Exception Parameters: 00000000 00000004 
     CS:EIP: 8B 48 04 8B 40 08 48 85 C0 7C 0E 40 33 F6 3B 11 
     SS:ESP: 01019D90 00BF54AD 0043EF20 00BF55F8 0043EF14 00000000 00000025 0043F1E4 00000000 00000000 00000001 FFFFFFFF 00000000 01006520 064F3EB4 0043F208 
  
     C stack: 
     EIP:     EBP:       Frame: OldEBP, RetAddr, Params... 
     009F61F1 0043EF14   0043F208 00C6AC96 00000000 0043F260 00C6BF13 0043F208 0043F2A0 00000001 00000001 00000000 
     00C6AC96 0043F208   0043F254 00C69233 00000000 00000000 00000000 01012C78 010449A0 01006520 00000001 00000001 
     00C69233 0043F254   0043F2A4 00C694C6 0043F2A4 0043F2BC 00C69509 0043F2A4 00000001 00000000 00000001 010062CC 
     00C694C6 0043F2A4   0043F3F0 00BF143D 01012CB8 0043F3A8 0043F358 00000003 0043F408 00BF15D2 0043F3F0 00000110 
     00BF143D 0043F3F0   0043F464 00C5A8CE 01020320 00C692C8 00FC1A50 010224E0 0043F414 00C5A8F9 0043F464 0043F48C 
  
  
 Modules: 
 ... 
 Called from DLLCALL(0) 
 Called from TPAGESCRIPT:ENDDOC(470) 
 Called from PSENDDOC(2475) 
 Called from (b)PS32(38) 
 Called from PS32:FINISH(0) 
 Called from MAIN(148) 
 

 
 In order to use PageScript 32 with (x)Harbour, 
 you'll need to distribute PSCRIPT.DLL with your 
 programs. We recommand that PSCRIPT.DLL be copied 
 in the application's folder in order to avoid 
 DLL versions conflicts. 
  
 Three files needs to be included in your (x)Harbour 
 projects : 
  
    1 - DLLCALL.C 
    2 - TPSCRIPT.PRG 
    3 - PSCRIPT.CH 
  
 DLLCALL.C gives PageScript a way to call DLL functions 
 in the same way as Xbase++ does. This interface is 
 contributed by Paul Tucker, Ontario, Canada. Many 
 thanks to him for this great contribution. 
  
 TPSCRIPT.PRG contains all the PageScript 32 functions 
 and one class, named TPageScript. You may either choose 
 to call PS functions or instantiate TPageScript and use 
 its methods. When you use functions, calling PSInit() 
 automaticaly instanciates a Static TPageScript object. 
  
 PSCRIPT.CH contains constants used by PageScript 32.