#include "PScript.ch" 
 #include "FileIO.ch" 
  
 #ifdef __XHARBOUR__ 
    // 02.06.2005 - IBTC - changed for xHarbour Builder: 
    #xtranslate Method <Classname>:<x> => Method <x> 
    #define DLL_STDCALL NIL 
  
    #include "hbclass.ch" 
 #else 
    #include "Xbp.ch" 
    #include "Dll.ch" 
 #endif 
  
 

 
 =============================================== 
 PAGESCRIPT 32 FOR (X)HARBOUR 
 =============================================== 
  
 This file contains important supplementary and  
 late-breaking information that may not appear  
 in the main product documentation. We recommend 
 that you read this file in its entirety. 
  
 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. 
  
 

 
 Func My_WIN_PRINTERLIST() 
 local alist:={} 
 local i 
 hb_cdpSelect( "RU1251" ) 
 alist:=WIN_PRINTERLIST() 
               if len(alist)#0 
        for i=1 to len(alist) 
 alist[ i ]:=hb_ansitooem(alist[ i ]) 
        next 
                endif 
 hb_cdpSelect( "RU866" ) 
 return alist 
 

 
 Called from DLLCALL(0) 
 Called from TPAGESCRIPT:INIT(266) in TPSCRIPT.PRG 
 

 
 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 
  
 

 
 31-12-2021 - Next update will get the following new functions: 
  
 - PDF signing for new and existing PDF files 
 - PDF printing from code and new preview window 
 - New preview window which can be used seperate or used non-modal from PS 
  
 Check this page next month for the beta version, happy new year !