C:\Program Files\zvprt50>zvprtcfg zan image printer(bw) -show

Build Datetime=Nov 28 2009, 12:16:28
File Version=5, 0, 9, 1
OS Name=Microsoft Windows XP Professional x64 Edition
OS Version=5.02.3790  Service Pack 1
Windows Directory=C:\WINDOWS
System Directory=C:\WINDOWS\system32
Session ID=0
Printer Driver Directory=C:\WINDOWS\system32\spool\DRIVERS\x64
Configuration Directory=C:\Documents and Settings\Administrator\Application Data
\zvprt50\zan image printer(bw)
Printer GPD File=C:\WINDOWS\system32\spool\DRIVERS\x64\3\zvprt1.gpd
Debug Logging=Disabled

Windows environment variables:
[%ALLUSERSPROFILE]=C:\Documents and Settings\All Users
[%APPDATA]=C:\Documents and Settings\Administrator\Application Data
[%TEMP]=C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp
[%TMP]=C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp
[%USERDOMAIN]=ZAN-PMLGRLABUJT
[%USERNAME]=Administrator
[%USERPROFILE]=C:\Documents and Settings\Administrator
[%windir]=C:\WINDOWS

Parameters(keyword-value pairs) for zan image printer(bw):
save.folder=E:\test\
save.basefilename=[%DocName]
save.filenameindex=1
save.filexistact=1
save.popupdialog=2

Option Explicit

Private Declare Sub Sleep Lib "kernel32" ( _
    ByVal dwMilliseconds As Long)
    
Private Declare Function GetDefaultPrinter Lib "winspool.drv" _
Alias "GetDefaultPrinterA" (ByVal pszBuffer As String, _
pcchBuffer As Long) As Long

Private Declare Function SetDefaultPrinter Lib "winspool.drv" _
Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long

Private Declare Function SHGetFolderPath Lib "shell32" _
Alias "SHGetFolderPathA" _
(ByVal hwndOwner As Long, ByVal nFolder As Long, _
ByVal hToken As Long, ByVal dwFlags As Long, _
ByVal pszPath As String) As Long
   
Private Declare Function GetPrivateProfileString Lib "kernel32.dll" _
Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Integer, ByVal lpFileName As String) As Integer

Private Declare Function GetPrivateProfileInt Lib "kernel32.dll" _
Alias "GetPrivateProfileIntA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal nDefault As Integer, _
ByVal lpFileName As String) As Integer

Private Declare Function WritePrivateProfileString Lib "kernel32.dll" _
Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Integer

Private Declare Function WaitForSingleObject Lib "kernel32.dll" _
(ByVal hHandle As Long, ByVal _
dwMilliseconds As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
   Alias "RegOpenKeyExA" _
  (ByVal hKey As Long, _
   ByVal lpSubKey As String, _
   ByVal ulOptions As Long, _
   ByVal samDesired As Long, _
   phkResult As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" _
Alias "RegQueryValueExA" (ByVal hKey As Long, _
ByVal lpValueName As String, ByVal lpReserved As Long, _
lpType As Long, lpData As Any, lpcbData As Long) As Long


Private Declare Function CreateEvent Lib "kernel32" _
Alias "CreateEventA" (ByVal lpEventAttributes As Long, _
ByVal bManualReset As Long, ByVal bInitialState As _
Long, ByVal lpname As String) As Long

Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long


Private Declare Function GetVersionEx Lib "kernel32" _
   Alias "GetVersionExA" _
  (lpVersionInformation As OSVERSIONINFO) As Long



Private Const HKEY_LOCAL_MACHINE = &H80000002
'Registry action types.
Private Const ERROR_SUCCESS = 0
Private Const STANDARD_RIGHTS_READ As Long = &H20000
Private Const KEY_QUERY_VALUE As Long = &H1
Private Const KEY_ENUMERATE_SUB_KEYS As Long = &H8
Private Const KEY_NOTIFY As Long = &H10
Private Const SYNCHRONIZE As Long = &H100000
Private Const KEY_READ As Long = ((STANDARD_RIGHTS_READ Or _
                                   KEY_QUERY_VALUE Or _
                                   KEY_ENUMERATE_SUB_KEYS Or _
                                   KEY_NOTIFY) And _
                                   (Not SYNCHRONIZE))


'Used CSIDL values.
Private Const CSIDL_APPDATA As Long = &H1A
Private Const CSIDL_PROGRAM_FILES  As Long = &H26
Private Const CSIDL_COMMON_APPDATA As Long = &H23
Private Const CSIDL_COMMON_DOCUMENTS As Long = &H2E

Private Const SHGFP_TYPE_CURRENT = 0
Private Const S_OK As Long = 0
Private Const MAX_PATH = 260
Private Const SW_SHOWNORMAL = 1
Private Const INFINITE = &HFFFF

'Windows-defined type OSVERSIONINFO
Private Type OSVERSIONINFO
  OSVSize         As Long
  dwVerMajor      As Long 'dwVerMajor = 6: Vista or above
  dwVerMinor      As Long
  dwBuildNumber   As Long
                                 
  PlatformID      As Long
  szCSDVersion    As String * 128
                                 
End Type



'Determines whether the given path refers to an existing
'directory
Function DirExists(ByVal DName As String) As Boolean
Dim sDummy As String
On Error Resume Next

If Right(DName, 1) <> "\" Then DName = DName & "\"
sDummy = Dir$(DName & "*.*", vbDirectory)
DirExists = Not (sDummy = "")
End Function


'Searches a path for a file name
Function GetFilePath(FileName As String) As String
    Dim i As Long
    For i = Len(FileName) To 1 Step -1
        Select Case Mid$(FileName, i, 1)
            Case ":"
                GetFilePath = Left$(FileName, i)
                Exit For
            Case "\"
                GetFilePath = Left$(FileName, i - 1)
                Exit For
        End Select
    Next
End Function


'Determines Zan Image Printer installation directory
Private Function GetZanInstallDir() As String

Dim sPath As String
Dim szTmp As String * MAX_PATH
Dim lResult As Long
Dim hKey, dwSize As Long


dwSize = MAX_PATH

'first check to see if the uninstall registry entry exists
If RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
"\Software\Microsoft\Windows\CurrentVersion\Uninstall\zvprt50" _
      , 0&, KEY_READ, hKey) = ERROR_SUCCESS Then
      If RegQueryValueEx(hKey, "UninstallString", _
      0&, 0&, ByVal szTmp, dwSize) = ERROR_SUCCESS Then
      
      sPath = Left$(szTmp, _
            InStr(szTmp, vbNullChar) - 1)

      sPath = GetFilePath(sPath)
      
      If DirExists(sPath) Then
      GetZanInstallDir = sPath
      Exit Function
      End If
      
      End If
      
End If
     
'fallback to the \Program Files\zvprt50 folder:
lResult = SHGetFolderPath(0, _
                   CSIDL_PROGRAM_FILES, _
                   0, _
                   SHGFP_TYPE_CURRENT, _
                   szTmp)
                   
sPath = Left$(szTmp, _
            InStr(szTmp, vbNullChar) - 1)
            
If Right$(sPath, 1) <> "\" Then
    sPath = sPath & "\"
 End If
 sPath = sPath & "zvprt50"
 GetZanInstallDir = sPath
End Function



'Determines Zan Image Printer
'configuration directory for the ini setting files
Private Function GetZanConfigurationDir(szPrinter As String) As String
   Dim sPath As String * MAX_PATH
   Dim lResult As Long
   Dim lPolicy As Long
   Dim csidl As Long
   Dim osv As OSVERSIONINFO
   Dim LRet As Long
   Dim sCfg As String

   'read the OS info
   osv.OSVSize = Len(osv)
   LRet = GetVersionEx(osv)
   
   'read configure.ini from
   'Zan Image Printer installation directory
   sCfg = GetZanInstallDir()

   If Right$(sCfg, 1) <> "\" Then
    sCfg = sCfg & "\"
   End If
   sCfg = sCfg & "configure.ini"

   
   'Read the all users (per-machine) folder policy
   'from configure.ini:
   
   'policy=1: auto detect, if Vista or newer,
   'use CSIDL_COMMON_DOCUMENTS as the
   'all users (per-machine) folder;
   'otherwise, use CSIDL_COMMON_APPDATA
   'policy=2: use CSIDL_COMMON_APPDATA
   'policy=3: use CSIDL_COMMON_DOCUMENTS

   lPolicy = GetPrivateProfileInt("allusersfolder", "policy", _
   1, sCfg)
   
   'handle the auto detect policy
   If lPolicy = 1 Then
     'Vista and 2008: dwVerMajor>=6
     If osv.dwVerMajor >= 6 Then
     lPolicy = 3
     Else
     lPolicy = 2
     End If
   End If
   
   If lPolicy = 2 Then
   csidl = CSIDL_COMMON_APPDATA
   Else
   csidl = CSIDL_COMMON_DOCUMENTS
   End If
    
   
   'get the all users (per-machine) folder
   lResult = SHGetFolderPath(0, _
                   csidl, _
                   0, _
                   SHGFP_TYPE_CURRENT, _
                   sPath)
                   
   sCfg = Left$(sPath, _
            InStr(sPath, vbNullChar) - 1)
            
   If Right$(sCfg, 1) <> "\" Then
    sCfg = sCfg & "\"
   End If
   sCfg = sCfg & "zvprt50\" & szPrinter
   
   'if the all users (per-machine) folder exists,
   'then this zan image printer was installed per-machine:
   'all users share the same settings
   If DirExists(sCfg) Then
   'all users will share the same
   'settings for the printer
   GetZanConfigurationDir = sCfg
   Exit Function
   End If
   
   'if the all users (per-machine) folder doesn't exist,
   'assume each user has his own settings
   'for the printer:
   lResult = SHGetFolderPath(0, _
                   CSIDL_APPDATA, _
                   0, _
                   SHGFP_TYPE_CURRENT, _
                   sPath)
                   
   sCfg = Left$(sPath, _
            InStr(sPath, vbNullChar) - 1)
            
   If Right$(sCfg, 1) <> "\" Then
    sCfg = sCfg & "\"
   End If
   sCfg = sCfg & "zvprt50\" & szPrinter
   
   GetZanConfigurationDir = sCfg
End Function






Public Sub Main()
Dim IniFileFolder As String
Dim SaveFolder As String * MAX_PATH
Dim PopupDlgInd As Integer
Dim SaveIniFileFolder As String
Dim ImageIniFileFolder As String
Dim Compress As Integer


IniFileFolder = GetZanConfigurationDir("Zan Image Printer(bw)")
If Right$(IniFileFolder, 1) <> "\" Then
    IniFileFolder = IniFileFolder & "\"
End If

'save.ini read/write:
SaveIniFileFolder = IniFileFolder & "save.ini"
 
GetPrivateProfileString "save", "folder", "", _
 SaveFolder, MAX_PATH, SaveIniFileFolder
 
SaveFolder = Left$(SaveFolder, _
            InStr(SaveFolder, vbNullChar) - 1)
 
WritePrivateProfileString "save", "basefilename", _
 "[%DocName]_[%Page]", SaveIniFileFolder

PopupDlgInd = GetPrivateProfileInt("save", "popupdialog", _
  0, SaveIniFileFolder)

WritePrivateProfileString "save", "filexistact", "1", _
  SaveIniFileFolder
  
  
'image.ini read/write:
ImageIniFileFolder = IniFileFolder & "image.ini"

WritePrivateProfileString "image", "fileformat", "2", ImageIniFileFolder

WritePrivateProfileString "image", "imagecolor", "3", ImageIniFileFolder

Compress = GetPrivateProfileInt("image", "compression", _
 0, ImageIniFileFolder)


End Sub

unit zanprinter;

interface

uses
Windows, Messages, SysUtils, ShlObj, ShellAPI, SHFolder, ComObj;

function GetDefaultPrinter(prnName:PAnsiChar; var bufSize:DWORD):
BOOL; stdcall; external 'winspool.drv' name 'GetDefaultPrinterA';

function SetDefaultPrinter(prnName:PAnsiChar):
BOOL; stdcall; external 'winspool.drv' name 'SetDefaultPrinterA';

procedure GetZanInstallDir(var APath: String);
procedure GetZanConfigurationDir(var szPrinter: String;
var cfgdir: String);
procedure readwriteini();


implementation

//Determines Zan Image Printer installation directory
procedure GetZanInstallDir(var APath: String);
var
  hkeyStartup: HKEY;
  dwSize: DWORD;
begin
  dwSize := MAX_PATH;
  SetLength(APath, MAX_PATH);

  //first check to see if the uninstall registry entry exists
  if RegOpenKeyEx(HKEY_LOCAL_MACHINE,
   '\Software\Microsoft\Windows\CurrentVersion\Uninstall\zvprt50',
   0,
   KEY_READ,
   hkeyStartup) = ERROR_SUCCESS then
   begin

   if RegQueryValueEx(hkeyStartup,
                     'UninstallString', nil, nil,
                      PBYTE(Pchar(APath)),
                      @dwSize) = ERROR_SUCCESS then
   begin
      APath := String (PChar(APath));
      APath := ExtractFilePath(APath);
   end;

   //Close the Key, we won't be needing it anymore
   RegCloseKey(hkeyStartup);

   if DirectoryExists(APath) then Exit;
  end;

  //fallback to the \Program Files\zvprt50 folder:
  SHGetFolderPath(0, CSIDL_PROGRAM_FILES, 0, 0,
                  PChar(APath));

  APath := String (PChar (APath));
  if (APath[Length(APath)] <> '\')
  then APath := APath + '\';

  APath := APath + 'zvprt50';
end;


//Determines Zan Image Printer
//configuration directory for the ini setting files
procedure GetZanConfigurationDir(var szPrinter: String;
var cfgdir: String);
var
  osv: TOSVersionInfo;
  lPolicy, csidl: Integer;
begin
  SetLength(cfgdir, MAX_PATH);

  //read the OS info
  FillChar(osv, SizeOf(osv), 0);
  osv.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  GetVersionEx(osv);

  //read configure.ini from
  //Zan Image Printer installation directory
  GetZanInstallDir(cfgdir);
  if (cfgdir[Length(cfgdir)] <> '\') then cfgdir := cfgdir + '\';
  cfgdir := cfgdir + 'configure.ini';

  //read configure.ini from
  //Zan Image Printer installation directory.
  //Read the all users (per-machine) folder policy
  //from configure.ini:

  //policy=1: auto detect, if Vista or newer,
  //use CSIDL_COMMON_DOCUMENTS as the
  //all users (per-machine) folder;
  //otherwise, use CSIDL_COMMON_APPDATA
  //policy=2: use CSIDL_COMMON_APPDATA
  //policy=3: use CSIDL_COMMON_DOCUMENTS
  lPolicy := GetPrivateProfileInt('allusersfolder', 'policy',
   1, PChar(cfgdir));

  //handle the auto detect policy
  if lPolicy = 1 then
  begin
     //Vista and 2008: dwVerMajor>=6
     if osv.dwMajorVersion >= 6 then lPolicy := 3
     else  lPolicy := 2;
  end;

  if lPolicy = 2 then  csidl := CSIDL_COMMON_APPDATA
  else  csidl := CSIDL_COMMON_DOCUMENTS;

  //get the all users (per-machine) folder
  SetLength(cfgdir, MAX_PATH);
  SHGetFolderPath(0, csidl, 0, 0, PChar(cfgdir));
  cfgdir := String (PChar (cfgdir));
  if (cfgdir[Length(cfgdir)] <> '\') then cfgdir := cfgdir + '\';
  cfgdir := cfgdir + 'zvprt50\' + szPrinter;

  //if the all users (per-machine) folder exists,
  //then this zan image printer was installed per-machine:
  //all users share the same settings
  if DirectoryExists(cfgdir) then Exit;

  //if the all users (per-machine) folder doesn't exist,
  //assume each user has his own settings
  //for the printer:
  SHGetFolderPath(0, CSIDL_APPDATA, 0, 0, PChar(cfgdir));
  cfgdir := String (PChar (cfgdir));
  if (cfgdir[Length(cfgdir)] <> '\') then cfgdir := cfgdir + '\';
  cfgdir := cfgdir + 'zvprt50\' + szPrinter;
end;



procedure readwriteini();
var
inifilepath: String;
saveinifilepath: String;
imageinifilepath: String;
SaveFolder: String;
szPrinter: String;
PopupDlgInd: Integer;
dwCompress: Integer;
begin
 szPrinter := 'Zan Image Printer(bw)';
 SetLength(SaveFolder, MAX_PATH);

 GetZanConfigurationDir(szPrinter, inifilepath);
 if (inifilepath[Length(inifilepath)] <> '\')
 then inifilepath := inifilepath + '\';

 //save.ini read/write:
 saveinifilepath := inifilepath + 'save.ini';

 GetPrivateProfileString('save','folder','',
   PChar(SaveFolder),MAX_PATH, PChar(saveinifilepath));

 WritePrivateProfileString('save', 'basefilename',
   '[%DocName]_[%Page]', PChar(saveinifilepath));

 PopupDlgInd := GetPrivateProfileInt('save','popupdialog',
   0, PChar(saveinifilepath));

 WritePrivateProfileString('save', 'filexistact', '1',
   PChar(saveinifilepath));
 //use SaveFolder, PopupDlgInd...

 //image.ini read/write:
 imageinifilepath := inifilepath + 'image.ini';
 WritePrivateProfileString('image', 'fileformat',
                           'jpeg', PChar(imageinifilepath));
 WritePrivateProfileString('image', 'imagecolor',
                           'True Color', PChar(imageinifilepath));
 dwCompress := GetPrivateProfileInt('image','compression',
                           0, PChar(imageinifilepath));
 //use dwCompress ...

end;

end.

#include <windows.h>
#include <winspool.h>
#include <shlobj.h>
#include <shlwapi.h>
#include <shellapi.h>

#pragma comment(lib, "shlwapi.lib")


//Determines whether the given path refers to 
//an existing directory
BOOL IsFolderExists(char *lpDirectoryName)
{
	if(0 == strlen(lpDirectoryName))
	{
		return FALSE;
	}

	DWORD dwFileAttr = GetFileAttributes(lpDirectoryName);

	if((dwFileAttr != 0xFFFFFFFF) &&
		(dwFileAttr & FILE_ATTRIBUTE_DIRECTORY))
	{
		return TRUE;
	}
	else
	{
		return FALSE;
	}
}



//Determines Zan Image Printer installation directory
void GetZanInstallDir(char *installfolder)
{
	HKEY hkeyStartup;

	//first check to see if the uninstall registry entry exists
	if(RegOpenKeyEx(HKEY_LOCAL_MACHINE,
		"\\Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\zvprt50",
		0,          
		KEY_READ,  
		&hkeyStartup) == ERROR_SUCCESS)
	{
		DWORD dwSize = MAX_PATH;

		if(RegQueryValueEx(hkeyStartup, 
			"UninstallString", 
			NULL,
			NULL,
			(LPBYTE)installfolder,
			&dwSize) == ERROR_SUCCESS)
		{
			PathRemoveFileSpec(installfolder);
			PathAddBackslash(installfolder);
		}

		/*Close the Key, we won't be needing it anymore*/
		RegCloseKey(hkeyStartup);

		if(IsFolderExists(installfolder))
		{
			return;
		}
	}

	//fallback to the \Program Files\zvprt50 folder:
	SHGetFolderPath(NULL, CSIDL_PROGRAM_FILES, NULL, 0, installfolder);
	PathAddBackslash(installfolder);

	strcat(installfolder,"zvprt50");
}



BOOL IsVistaOrAbove(void)
{
	OSVERSIONINFOEX osvi;
	BOOL bOsVersionInfoEx;

	ZeroMemory(&osvi, sizeof(OSVERSIONINFOEX));

	//Try calling GetVersionEx using the OSVERSIONINFOEX structure.
	//If that fails, try using the OSVERSIONINFO structure.
	osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOEX);
	if(!(bOsVersionInfoEx = GetVersionEx((OSVERSIONINFO*)&osvi)))
	{
		osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
		if(!GetVersionEx((OSVERSIONINFO*)&osvi))
			return FALSE;
	}

	//vista and 2008: 6
	//2003: 5
	//xp: 5
	if(osvi.dwMajorVersion >= 6)
	{
		return TRUE;
	}
	else
	{
		return FALSE;
	}
}



//Determines Zan Image Printer
//configuration directory for the ini setting files
void GetZanConfigurationDir(char *sPrinter, char *sCfg)
{
	DWORD lPolicy;
	DWORD csidl;

	//read configure.ini from
	//Zan Image Printer installation directory
	GetZanInstallDir(sCfg);
	PathAddBackslash(sCfg);
	strcat(sCfg,"configure.ini");

	//Read the all users (per-machine) folder policy
	//from configure.ini:

	//policy=1: auto detect, if Vista or newer,
	//use CSIDL_COMMON_DOCUMENTS as the
	//all users (per-machine) folder;
	//otherwise, use CSIDL_COMMON_APPDATA
	//policy=2: use CSIDL_COMMON_APPDATA
	//policy=3: use CSIDL_COMMON_DOCUMENTS

	lPolicy = GetPrivateProfileInt("allusersfolder", 
		"policy", 1, sCfg);

	//handle the auto detect policy
	if(1 == lPolicy)
	{
		if(IsVistaOrAbove())  lPolicy = 3;
		else lPolicy = 2;
	}


	if(2 == lPolicy)
	{
		csidl = CSIDL_COMMON_APPDATA;
	}
	else
	{
		csidl = CSIDL_COMMON_DOCUMENTS;
	}

	//get the all users (per-machine) folder
	SHGetFolderPath(NULL, csidl, NULL, 0, sCfg);
	PathAddBackslash(sCfg);
	strcat(sCfg, "zvprt50\\");
	strcat(sCfg, sPrinter);
		

	//if the all users (per-machine) folder exists,
	//then this zan image printer was installed per-machine: 
	//all users share the same settings
	if(IsFolderExists(sCfg)) return;


	//if the all users (per-machine) folder doesn't exist,
	//assume each user has his own settings
	//for the printer:
	SHGetFolderPath(NULL, CSIDL_APPDATA, NULL, 0, sCfg);
	PathAddBackslash(sCfg);
	strcat(sCfg, "zvprt50\\");
	strcat(sCfg, sPrinter);
}



int main(int argc, char* argv[])
{
	char inifilepath[MAX_PATH];
	char saveinifilepath[MAX_PATH];
	char imageinifilepath[MAX_PATH];
	char SaveFolder[MAX_PATH];
    DWORD dwPopupDlg;
	DWORD dwCompress;

	char *szPrinter = "zan image printer(bw)";

	GetZanConfigurationDir(szPrinter, inifilepath);
	PathAddBackslash(inifilepath);

	//save.ini read/write:
	strcpy(saveinifilepath, inifilepath);
	strcat(saveinifilepath, "save.ini");

	GetPrivateProfileString("save", "folder", "", SaveFolder, 
		MAX_PATH, saveinifilepath);

	WritePrivateProfileString("save", "basefilename", 
		"[%DocName]_[%Page]", saveinifilepath);

	dwPopupDlg = GetPrivateProfileInt("save", "popupdialog", 
		0, saveinifilepath);

	WritePrivateProfileString("save", "filexistact", "1", 
		saveinifilepath);


	//image.ini read/write:
	strcpy(imageinifilepath, inifilepath);
	strcat(imageinifilepath, "image.ini");

	WritePrivateProfileString("image", "fileformat", "2", 
		imageinifilepath);

	WritePrivateProfileString("image", "imagecolor", "3", 
		imageinifilepath);

	dwCompress = GetPrivateProfileInt("image", "compression", 
		0, imageinifilepath);

	return 0;
}

using namespace System;
using namespace System::Text;
using namespace System::Runtime::InteropServices;
using namespace System::Threading;
using namespace System::IO;
using namespace System::Diagnostics;
using namespace Microsoft::Win32;


// Declare the function that is exported from unmanaged dll:
[DllImport("winspool.drv")]
extern "C" bool _cdecl GetDefaultPrinter(
	 StringBuilder^ pszBuffer, int *size);

[DllImport("winspool.drv")]
extern "C" bool _cdecl SetDefaultPrinter(
	 String^ pszPrinter);

[DllImport("KERNEL32.DLL")]
extern "C" int _cdecl GetPrivateProfileString(
   String^ lpAppName, 
   String^ lpKeyName,
   String^ lpDefault, 
   StringBuilder^ lpReturnedString, 
   int nSize,
   String^ lpFileName);

[DllImport("KERNEL32.DLL")]
extern "C" bool _cdecl WritePrivateProfileString(
   String^ lpAppName, 
   String^ lpKeyName,
   String^ lpString, 
   String^ lpFileName);

[DllImport("KERNEL32.DLL")]
extern "C" int _cdecl GetPrivateProfileInt(
   String^ lpAppName, 
   String^ lpKeyName,
   int nDefault, 
   String^ lpFileName);

[DllImport("shell32.dll")]
extern "C" bool _cdecl SHGetFolderPath(int hwndOwner,
int nFolder, int hToken, int dwFlags, StringBuilder^ pszPath);
const int CSIDL_COMMON_DOCUMENTS = 0x002e;



//Determines Zan Image Printer installation directory
String^ GetZanInstallDir(void)
{
	String^ installfolder = String::Empty;
	RegistryKey ^ rkTest;

	//first check to see if the uninstall registry entry exists
	rkTest = Registry::LocalMachine->OpenSubKey(
		L"\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\zvprt50");
	if(rkTest)
	{
		installfolder = rkTest->GetValue(L"UninstallString")->ToString();
		rkTest->Close();

		if(installfolder->Length)
		{
			installfolder = Path::GetDirectoryName(installfolder);

			DirectoryInfo^ installdir1=gcnew DirectoryInfo(installfolder);
			if(installdir1->Exists)
			{
				return installfolder;
			}
		}
	}

	//fallback to the \Program Files\zvprt50 folder:
	installfolder = Environment::GetFolderPath
		(Environment::SpecialFolder::ProgramFiles);

	if(!installfolder->EndsWith(L"\\")) 
		installfolder = String::Concat(installfolder, L"\\");

	installfolder=String::Concat(installfolder, L"zvprt50");

	return installfolder;
}


//Determines Zan Image Printer
//configuration directory for the ini setting files
String^ GetZanConfigurationDir(String^ szPrinter)
{
	//read the OS info
	OperatingSystem^ os = System::Environment::OSVersion;
	String^ sCfg;
	int lPolicy;
	StringBuilder^ tmpstr = gcnew StringBuilder(256);

	//read configure.ini from
	//Zan Image Printer installation directory
	sCfg = GetZanInstallDir();

	if(!sCfg->EndsWith(L"\\")) 
		sCfg = String::Concat(sCfg, L"\\");

	sCfg = String::Concat(sCfg, L"configure.ini");


	//Read the all users (per-machine) folder policy
	//from configure.ini:

	//policy=1: auto detect, if Vista or newer,
	//use CSIDL_COMMON_DOCUMENTS as the
	//all users (per-machine) folder;
	//otherwise, use CSIDL_COMMON_APPDATA
	//policy=2: use CSIDL_COMMON_APPDATA
	//policy=3: use CSIDL_COMMON_DOCUMENTS

	lPolicy = GetPrivateProfileInt(L"allusersfolder", L"policy",
		1, sCfg);

	//handle the auto detect policy
	if(1 == lPolicy)
	{
		//Vista and 2008: dwVerMajor>=6
		if(os->Version->Major >= 6)
		{
			lPolicy = 3;
		}
		else
		{
			lPolicy = 2;
		}
	}


	//get the all users (per-machine) folder
	//if the all users (per-machine) folder exists,
	//then this zan image printer was installed per-machine: 
	//all users share the same settings
	if(2 == lPolicy)
	{
		//csidl = CSIDL_COMMON_APPDATA;
		sCfg = Environment::GetFolderPath
			(Environment::SpecialFolder::CommonApplicationData);

	}
	else
	{
		//csidl = CSIDL_COMMON_DOCUMENTS;
		SHGetFolderPath(0, CSIDL_COMMON_DOCUMENTS, 0, 0, tmpstr);
		sCfg = tmpstr->ToString();
	}

	if(!sCfg->EndsWith(L"\\")) sCfg = String::Concat(sCfg, L"\\");
	sCfg = String::Concat(sCfg, L"zvprt50\\");
	sCfg = String::Concat(sCfg, szPrinter);

	//all users will share the same
	//settings for the printer
	DirectoryInfo^ tmpdir = gcnew DirectoryInfo(sCfg);
	if(tmpdir->Exists)
	{
		return sCfg;
	}

	//if the all users (per-machine) folder doesn't exist,
	//assume each user has his own settings
	//for the printer:
	sCfg = Environment::GetFolderPath
		(Environment::SpecialFolder::ApplicationData);

	if(!sCfg->EndsWith(L"\\")) sCfg = String::Concat(sCfg, L"\\");
	sCfg = String::Concat(sCfg, L"zvprt50\\");
	sCfg = String::Concat(sCfg, szPrinter);

	return sCfg;
}



int main(array ^args)
{
	String^ inifilepath;
	String^ saveinifilepath;
	String^ imageinifilepath;
	String^ szFolder;
	StringBuilder^ tmpstr = gcnew StringBuilder(256);

	inifilepath = GetZanConfigurationDir(L"zan image printer(bw)");
	if(!inifilepath->EndsWith(L"\\")) inifilepath = String::Concat(inifilepath, L"\\");

	//save.ini read/write:
	saveinifilepath = String::Concat(inifilepath, L"save.ini");

	GetPrivateProfileString(L"save", L"folder", L"", 
		tmpstr, tmpstr->Capacity, saveinifilepath);
	szFolder = tmpstr->ToString();

	WritePrivateProfileString(L"save", L"basefilename", 
		L"[%DocName]_[%Page]", saveinifilepath);

	int dwPopupDlg = GetPrivateProfileInt(L"save", L"popupdialog",  
		0, saveinifilepath);

	WritePrivateProfileString(L"save", L"filexistact", L"1", saveinifilepath);

	//image.ini read/write:
	imageinifilepath = String::Concat(inifilepath, L"image.ini");
	WritePrivateProfileString(L"image", L"fileformat", L"2", imageinifilepath);
	WritePrivateProfileString(L"image", L"imagecolor", L"3", imageinifilepath);

	int dwCompress = GetPrivateProfileInt(L"image", L"compression", 
		0, imageinifilepath);

	return 0;
}

Imports System
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.IO
Imports System.Diagnostics
Imports System.Threading
Imports Microsoft.Win32



Module Module1
    Declare Function GetDefaultPrinter Lib "winspool.drv" Alias _
    "GetDefaultPrinterA" (ByVal pszBuffer As System.Text.StringBuilder, _
    ByRef size As Int32) As Boolean

    Declare Function SetDefaultPrinter Lib "winspool.drv" Alias _
    "SetDefaultPrinterA" (ByVal pszPrinter As String) As Boolean

    Private Declare Function GetPrivateProfileString Lib "kernel32" _
         Alias "GetPrivateProfileStringA" _
        (ByVal lpAppName As String, _
         ByVal lpKeyName As String, _
         ByVal lpDefault As String, _
         ByVal lpReturnedString As StringBuilder, _
         ByVal nSize As Integer, _
         ByVal lpFileName As String) As Integer

    Private Declare Function GetPrivateProfileInt Lib "kernel32.dll" _
            Alias "GetPrivateProfileIntA" _
           (ByVal lpApplicationName _
            As String, ByVal lpKeyName As String, ByVal nDefault As _
            Integer, ByVal lpFileName As String) As Integer

    Private Declare Function WritePrivateProfileString Lib "kernel32.dll" _
            Alias "WritePrivateProfileStringA" _
           (ByVal lpAppName As String, _
            ByVal lpKeyName As String, _
            ByVal lpString As String, _
            ByVal lpFileName As String) As Boolean

    Private Declare Function SHGetFolderPath Lib "shell32.dll" _
    Alias "SHGetFolderPathA" _
    (ByVal hwndOwner As Integer, _
    ByVal nFolder As Integer, _
    ByVal hToken As Integer, _
    ByVal dwFlags As Integer, _
    ByVal pszPath As StringBuilder) As Integer

    'All Users\Documents 
    Private Const CSIDL_COMMON_DOCUMENTS = &H2E


    'Determines Zan Image Printer installation directory
    Function GetZanInstallDir() As String
        Dim installfolder As String
        Dim rkTest As RegistryKey

        'first check to see if the uninstall registry entry exists
        rkTest = Registry.LocalMachine.OpenSubKey _
 ("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\zvprt50")

        If Not (rkTest Is Nothing) Then
            installfolder = rkTest.GetValue _
              ("UninstallString").ToString()
            rkTest.Close()
            If (installfolder.Length > 0) Then
                installfolder = Path.GetDirectoryName(installfolder)
                Dim installdir1 As DirectoryInfo = _
                   New DirectoryInfo(installfolder)

                If installdir1.Exists Then
                    Return installfolder
                End If
            End If
        End If
        'fallback to the \Program Files\zvprt50 folder:
        installfolder = Environment.GetFolderPath _
(Environment.SpecialFolder.ProgramFiles)

        If Not installfolder.EndsWith("\") Then
            installfolder = String.Concat(installfolder, "\")
        End If

        installfolder = String.Concat(installfolder, "zvprt50")
        Return installfolder
    End Function


    'Determines Zan Image Printer
    'configuration directory for the ini setting files
    Function GetZanConfigurationDir(ByVal szPrinter As String) As String
        'read the OS info
        Dim os As OperatingSystem
        Dim sCfg As String
        Dim lPolicy As Integer
        Dim tmpstr As StringBuilder

        tmpstr = New StringBuilder(256)

        os = System.Environment.OSVersion

        'read configure.ini from
        'Zan Image Printer installation directory
        sCfg = GetZanInstallDir()

        If Not sCfg.EndsWith("\") Then
            sCfg = String.Concat(sCfg, "\")
        End If

        sCfg = String.Concat(sCfg, "configure.ini")


        'Read the all users (per-machine) folder policy
        'from configure.ini:

        'policy=1: auto detect, if Vista or newer,
        'use CSIDL_COMMON_DOCUMENTS as the
        'all users (per-machine) folder;
        'otherwise, use CSIDL_COMMON_APPDATA
        'policy=2: use CSIDL_COMMON_APPDATA
        'policy=3: use CSIDL_COMMON_DOCUMENTS

        lPolicy = GetPrivateProfileInt("allusersfolder", _
            "policy", 1, sCfg)

        'Vista and 2008: dwVerMajor>=6
        If lPolicy = 1 Then
            If os.Version.Major >= 6 Then
                lPolicy = 3
            Else
                lPolicy = 2
            End If
        End If


        'get the all users (per-machine) folder
        'if the all users (per-machine) folder exists,
        'then this zan image printer was installed per-machine: 
        'all users share the same settings
        If lPolicy = 2 Then
            'csidl = CSIDL_COMMON_APPDATA;
            sCfg = Environment.GetFolderPath( _
            Environment.SpecialFolder.CommonApplicationData)
        Else
            'csidl = CSIDL_COMMON_DOCUMENTS;
            SHGetFolderPath(0, CSIDL_COMMON_DOCUMENTS, 0, 0, tmpstr)
            sCfg = tmpstr.ToString()
        End If


        If Not sCfg.EndsWith("\") Then
            sCfg = String.Concat(sCfg, "\")
        End If
        sCfg = String.Concat(sCfg, "zvprt50\")
        sCfg = String.Concat(sCfg, szPrinter)

        'all users will share the same
        'settings for the printer
        Dim tmpdir As DirectoryInfo = _
                   New DirectoryInfo(sCfg)

        If tmpdir.Exists Then
            Return sCfg
        End If

        'if the all users (per-machine) folder doesn't exist,
        'assume each user has his own settings
        'for the printer:
        sCfg = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)

        If Not sCfg.EndsWith("\") Then
            sCfg = String.Concat(sCfg, "\")
        End If
        sCfg = String.Concat(sCfg, "zvprt50\")
        sCfg = String.Concat(sCfg, szPrinter)

        Return sCfg
    End Function



    Sub Main()
        Dim inifilepath As String
        Dim saveinifilepath As String
        Dim imageinifilepath As String
        Dim szFolder As String
        Dim tmpstr As StringBuilder

        inifilepath = GetZanConfigurationDir("zan image printer(bw)")

        If Not inifilepath.EndsWith("\") Then
            inifilepath = String.Concat(inifilepath, "\")
        End If

        'save.ini read/write:
        saveinifilepath = String.Concat(inifilepath, "save.ini")

        tmpstr = New StringBuilder(256)
        GetPrivateProfileString("save", "folder", "", tmpstr, _
            tmpstr.Capacity, saveinifilepath)
        szFolder = tmpstr.ToString()
        
        WritePrivateProfileString("save", "basefilename", _
        "[%DocName]_[%Page]", saveinifilepath)

        Dim PopupDlgInd As Integer

        PopupDlgInd = GetPrivateProfileInt("save", "popupdialog", 0, _
         saveinifilepath)

        WritePrivateProfileString("save", "filexistact", "1", saveinifilepath)

        'image.ini read/write:
        imageinifilepath = String.Concat(inifilepath, "image.ini")

        Dim dwCompress As Integer

        WritePrivateProfileString("image", "fileformat", "2", imageinifilepath)
        WritePrivateProfileString("image", "imagecolor", "3", imageinifilepath)
        dwCompress = GetPrivateProfileInt("image", "compression", _
                    0, imageinifilepath)

    End Sub

End Module

using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;
using System.Threading;
using System.IO;
using Microsoft.Win32;


namespace readwriteini_csharp
{
    class Program
    {
        //Determines Zan Image Printer installation directory
        static string GetZanInstallDir()
        {
            string installfolder = string.Empty;
            RegistryKey rkTest;

            //first check to see if the uninstall registry entry exists
            rkTest = Registry.LocalMachine.OpenSubKey(
            "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\zvprt50");

            if (rkTest != null)
            {
                installfolder = rkTest.GetValue("UninstallString").ToString();
                rkTest.Close();

                if (installfolder.Length > 0)
                {
                    installfolder = Path.GetDirectoryName(installfolder);

                    DirectoryInfo installdir1 = new DirectoryInfo(installfolder);
                    if (installdir1.Exists)
                    {
                        return installfolder;
                    }
                }
            }

            //fallback to the \Program Files\zvprt50 folder:
            installfolder = Environment.GetFolderPath
                (Environment.SpecialFolder.ProgramFiles);

            if (!installfolder.EndsWith("\\"))
                installfolder = string.Concat(installfolder, "\\");

            installfolder = string.Concat(installfolder, "zvprt50");

            return installfolder;
        }



        //Determines Zan Image Printer
        //configuration directory for the ini setting files
        static string GetZanConfigurationDir(string szPrinter)
        {
            //read the OS info
            OperatingSystem os = System.Environment.OSVersion;
            string sCfg;
            uint lPolicy;
            StringBuilder tmpstr = new StringBuilder(256);

            //read configure.ini from
            //Zan Image Printer installation directory
            sCfg = GetZanInstallDir();

            if (!sCfg.EndsWith("\\"))
                sCfg = string.Concat(sCfg, "\\");

            sCfg = string.Concat(sCfg, "configure.ini");


            //Read the all users (per-machine) folder policy
            //from configure.ini:

            //policy=1: auto detect, if Vista or newer,
            //use CSIDL_COMMON_DOCUMENTS as the
            //all users (per-machine) folder;
            //otherwise, use CSIDL_COMMON_APPDATA
            //policy=2: use CSIDL_COMMON_APPDATA
            //policy=3: use CSIDL_COMMON_DOCUMENTS

            lPolicy = GetPrivateProfileInt("allusersfolder", "policy",
                1, sCfg);

            //handle the auto detect policy
            if (1 == lPolicy)
            {
                //Vista and 2008: dwVerMajor>=6
                if (os.Version.Major >= 6)
                {
                    lPolicy = 3;
                }
                else
                {
                    lPolicy = 2;
                }
            }


            //get the all users (per-machine) folder
            //if the all users (per-machine) folder exists,
            //then this zan image printer was installed per-machine: 
            //all users share the same settings
            if (2 == lPolicy)
            {
                //csidl = CSIDL_COMMON_APPDATA;
                sCfg = Environment.GetFolderPath
                    (Environment.SpecialFolder.CommonApplicationData);

            }
            else
            {
                //csidl = CSIDL_COMMON_DOCUMENTS;
                SHGetFolderPath(0, CSIDL_COMMON_DOCUMENTS, 0, 0, tmpstr);
                sCfg = tmpstr.ToString();
            }

            if (!sCfg.EndsWith("\\")) sCfg = string.Concat(sCfg, "\\");
            sCfg = string.Concat(sCfg, "zvprt50\\");
            sCfg = string.Concat(sCfg, szPrinter);

            //all users will share the same
            //settings for the printer
            DirectoryInfo tmpdir = new DirectoryInfo(sCfg);
            if (tmpdir.Exists)
            {
                return sCfg;
            }

            //if the all users (per-machine) folder doesn't exist,
            //assume each user has his own settings
            //for the printer:
            sCfg = Environment.GetFolderPath
                (Environment.SpecialFolder.ApplicationData);

            if (!sCfg.EndsWith("\\")) sCfg = string.Concat(sCfg, "\\");
            sCfg = string.Concat(sCfg, "zvprt50\\");
            sCfg = string.Concat(sCfg, szPrinter);

            return sCfg;
        }




        static void Main(string[] args)
        {
            string inifilepath;
            string saveinifilepath;
            string imageinifilepath;
            string szFolder;
            string szPrinter;
            StringBuilder tmpstr = new StringBuilder(256);

            szPrinter = "zan image printer(bw)";

            inifilepath = GetZanConfigurationDir(szPrinter);
            if (!inifilepath.EndsWith("\\")) inifilepath =
                String.Concat(inifilepath, "\\");

            //save.ini read/write:
            saveinifilepath = String.Concat(inifilepath, "save.ini");

            GetPrivateProfileString("save", "folder", "",
                tmpstr, tmpstr.Capacity, saveinifilepath);
            szFolder = tmpstr.ToString();

            WritePrivateProfileString("save", "basefilename",
                "[%DocName]_[%Page]", saveinifilepath);

            uint dwPopupDlg = GetPrivateProfileInt("save", "popupdialog",
                0, saveinifilepath);

            WritePrivateProfileString("save", "filexistact", "1", saveinifilepath);

            //image.ini read/write:
            imageinifilepath = String.Concat(inifilepath, "image.ini");

            WritePrivateProfileString("image", "fileformat", "2", 
                imageinifilepath);

            WritePrivateProfileString("image", "imagecolor", "3", 
                imageinifilepath);

            uint dwCompress = GetPrivateProfileInt("image",
                "compression", 0, imageinifilepath);

        }

        [DllImport("winspool.drv", CharSet = CharSet.Auto, SetLastError = true)]
        public static extern bool GetDefaultPrinter(StringBuilder pszBuffer,
        ref int size);

        [DllImport("winspool.drv", CharSet = CharSet.Auto, SetLastError = true)]
        public static extern bool SetDefaultPrinter(string Name);

        [DllImport("kernel32.dll")]
        static extern uint GetPrivateProfileString(string lpAppName,
            string lpKeyName, string lpDefault,
            StringBuilder lpReturnedString, int nSize, string lpFileName);

        [DllImport("kernel32.dll")]
        static extern bool WritePrivateProfileString(string lpAppName,
                                                     string lpKeyName,
            string lpString, string lpFileName);

        [DllImport("kernel32.dll")]
        static extern uint GetPrivateProfileInt(string lpAppName,
            string lpKeyName, int nDefault, string lpFileName);


        [DllImport("shell32.dll")]
        static extern bool SHGetFolderPath(int hwndOwner,
        int nFolder, int hToken, int dwFlags, StringBuilder pszPath);
        const int CSIDL_COMMON_DOCUMENTS = 0x002e;

    }
}

C:\Program Files\zvprt50>zvprtcfg

Syntax: zvprtcfg  printer  keyword=value [-silent]
	Or: zvprtcfg  -help
	Or: zvprtcfg  -examples
	Or: zvprtcfg   printer -show
	Or: zvprtcfg   printer -setdefault
	Or: zvprtcfg  -listprinters
Where:
printer: printer name
silent: do not print out any message on screen
show: show the current parameters(keyword-value pairs) for the specified printer
examples: show usage examples
listprinters: show all installed printer instances
setdefault: set the specified printer as the default printer

Option Explicit
Private Type PROCESS_INFORMATION
         hProcess As Long
         hThread As Long
         dwProcessId As Long
         dwThreadId As Long
End Type

Private Type STARTUPINFO
         cb As Long
         lpReserved As String
         lpDesktop As String
         lpTitle As String
         dwX As Long
         dwY As Long
         dwXSize As Long
         dwYSize As Long
         dwXCountChars As Long
         dwYCountChars As Long
         dwFillAttribute As Long
         dwFlags As Long
         wShowWindow As Integer
         cbReserved2 As Integer
         lpReserved2 As Long
         hStdInput As Long
         hStdOutput As Long
         hStdError As Long
End Type

Private Declare Function CreateProcess Lib "kernel32" _
         Alias "CreateProcessA" _
         (ByVal lpApplicationName As String, _
         ByVal lpCommandLine As String, _
         lpProcessAttributes As Any, _
         lpThreadAttributes As Any, _
         ByVal bInheritHandles As Long, _
         ByVal dwCreationFlags As Long, _
         lpEnvironment As Any, _
         ByVal lpCurrentDriectory As String, _
         lpStartupInfo As STARTUPINFO, _
         lpProcessInformation As PROCESS_INFORMATION) As Long

Private Const INFINITE = &HFFFF
Public Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" _
         (ByVal hObject As Long) As Long

Private Declare Function SHGetFolderPath Lib "shell32" _
Alias "SHGetFolderPathA" _
(ByVal hwndOwner As Long, ByVal nFolder As Long, _
ByVal hToken As Long, ByVal dwFlags As Long, _
ByVal pszPath As String) As Long


Private Const HKEY_LOCAL_MACHINE = &H80000002
'Registry action types.
Private Const ERROR_SUCCESS = 0
Private Const STANDARD_RIGHTS_READ As Long = &H20000
Private Const KEY_QUERY_VALUE As Long = &H1
Private Const KEY_ENUMERATE_SUB_KEYS As Long = &H8
Private Const KEY_NOTIFY As Long = &H10
Private Const SYNCHRONIZE As Long = &H100000
Private Const KEY_READ As Long = ((STANDARD_RIGHTS_READ Or _
                                   KEY_QUERY_VALUE Or _
                                   KEY_ENUMERATE_SUB_KEYS Or _
                                   KEY_NOTIFY) And _
                                   (Not SYNCHRONIZE))

Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
   Alias "RegOpenKeyExA" _
  (ByVal hKey As Long, _
   ByVal lpSubKey As String, _
   ByVal ulOptions As Long, _
   ByVal samDesired As Long, _
   phkResult As Long) As Long
  

Private Declare Function RegQueryValueEx Lib "advapi32.dll" _
Alias "RegQueryValueExA" (ByVal hKey As Long, _
ByVal lpValueName As String, ByVal lpReserved As Long, _
lpType As Long, lpData As Any, lpcbData As Long) As Long
 

'Used CSIDL values
Private Const CSIDL_APPDATA As Long = &H1A
Private Const CSIDL_PROGRAM_FILES  As Long = &H26
Private Const CSIDL_COMMON_APPDATA As Long = &H23

Private Const SHGFP_TYPE_CURRENT = 0
Private Const S_OK As Long = 0
Const NORMAL_PRIORITY_CLASS = &H20


Private Const MAX_PATH = 260

'Determines whether the given path refers to an existing
'directory
Function DirExists(ByVal DName As String) As Boolean
Dim sDummy As String
On Error Resume Next

If Right(DName, 1) <> "\" Then DName = DName & "\"
sDummy = Dir$(DName & "*.*", vbDirectory)
DirExists = Not (sDummy = "")
End Function


'Searches a path for a file name
Function GetFilePath(FileName As String) As String
    Dim i As Long
    For i = Len(FileName) To 1 Step -1
        Select Case Mid$(FileName, i, 1)
            Case ":"
                GetFilePath = Left$(FileName, i)
                Exit For
            Case "\"
                GetFilePath = Left$(FileName, i - 1)
                Exit For
        End Select
    Next
End Function


'Determines Zan Image Printer installation directory
Private Function GetZanInstallDir() As String

Dim sPath As String
Dim szTmp As String * MAX_PATH
Dim lResult As Long
Dim hKey, dwSize As Long


dwSize = MAX_PATH

'first check to see if the uninstall registry entry exists
If RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
"\Software\Microsoft\Windows\CurrentVersion\Uninstall\zvprt50" _
      , 0&, KEY_READ, hKey) = ERROR_SUCCESS Then
      If RegQueryValueEx(hKey, "UninstallString", _
      0&, 0&, ByVal szTmp, dwSize) = ERROR_SUCCESS Then
      
      sPath = Left$(szTmp, _
            InStr(szTmp, vbNullChar) - 1)

      sPath = GetFilePath(sPath)
      
      If DirExists(sPath) Then
      GetZanInstallDir = sPath
      Exit Function
      End If
      
      End If
      
End If
     
'fallback to the \Program Files\zvprt50 folder:
lResult = SHGetFolderPath(0, _
                   CSIDL_PROGRAM_FILES, _
                   0, _
                   SHGFP_TYPE_CURRENT, _
                   szTmp)
                   
sPath = Left$(szTmp, _
            InStr(szTmp, vbNullChar) - 1)
            
If Right$(sPath, 1) <> "\" Then
    sPath = sPath & "\"
 End If
 sPath = sPath & "zvprt50"
 GetZanInstallDir = sPath
End Function


'run application with given parameters
Private Sub util_CreateProcess(command_line As String)
        Dim pInfo As PROCESS_INFORMATION
        Dim sInfo As STARTUPINFO
        Dim sNull As String
        Dim lSuccess As Long
        Dim lRetValue As Long

        sInfo.cb = Len(sInfo)
        lSuccess = CreateProcess(sNull, _
                                 command_line, _
                                 ByVal 0&, _
                                 ByVal 0&, _
                                 1&, _
                                 NORMAL_PRIORITY_CLASS, _
                                 ByVal 0&, _
                                 sNull, _
                                 sInfo, _
                                 pInfo)

         'lRetValue = WaitForSingleObject(pInfo.hProcess, INFINITE)

         lRetValue = CloseHandle(pInfo.hThread)
         lRetValue = CloseHandle(pInfo.hProcess)
End Sub


Public Sub Main()
Dim cmdline As String

 cmdline = GetZanInstallDir()
 If Right$(cmdline, 1) <> "\" Then
    cmdline = cmdline & "\"
 End If

 cmdline = cmdline & _
 "zvprtcfg_win32 Zan Image Printer(bw) save.folder=c:\temp"
 
 util_CreateProcess cmdline
End Sub

unit zanprinter;

interface
uses
Windows, Messages, SysUtils, ShlObj,
ShellAPI, SHFolder, Registry;

procedure util_CreateProcess(ProgramName:String);
procedure GetZanInstallDir(var APath: String);
procedure zvprtvfg_test();
implementation

//run application with given parameters
procedure util_CreateProcess(ProgramName:String);
var
  StartInfo : TStartupInfo;
  ProcInfo : TProcessInformation;
  CreateOK : Boolean;
begin
  FillChar(StartInfo,SizeOf(TStartupInfo),#0);
  FillChar(ProcInfo,SizeOf(TProcessInformation),#0);
  StartInfo.cb := SizeOf(TStartupInfo);
  CreateOK := CreateProcess(nil,PChar(ProgramName),nil,nil,False,
              CREATE_NEW_PROCESS_GROUP+NORMAL_PRIORITY_CLASS,
              nil, nil, StartInfo, ProcInfo);
  if CreateOK then
    begin
    //WaitForSingleObject(ProcInfo.hProcess, INFINITE);
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
    end
end;


//Determines Zan Image Printer installation directory
procedure GetZanInstallDir(var APath: String);
var
  hkeyStartup: HKEY;
  dwSize: DWORD;
begin
  dwSize := MAX_PATH;
  SetLength(APath, MAX_PATH);

  //first check to see if the uninstall registry entry exists
  if RegOpenKeyEx(HKEY_LOCAL_MACHINE,
   '\Software\Microsoft\Windows\CurrentVersion\Uninstall\zvprt50',
   0,
   KEY_READ,
   hkeyStartup) = ERROR_SUCCESS then
   begin

   if RegQueryValueEx(hkeyStartup,
                     'UninstallString', nil, nil,
                      PBYTE(Pchar(APath)),
                      @dwSize) = ERROR_SUCCESS then
   begin
      APath := String (PChar(APath));
      APath := ExtractFilePath(APath);
   end;

   //Close the Key, we won't be needing it anymore
   RegCloseKey(hkeyStartup);

   if DirectoryExists(APath) then Exit;
  end;

  //fallback to the \Program Files\zvprt50 folder:
  SHGetFolderPath(0, CSIDL_PROGRAM_FILES, 0, 0,
                  PChar(APath));

  APath := String (PChar (APath));
  if (APath[Length(APath)] <> '\')
  then APath := APath + '\';

  APath := APath + 'zvprt50';
end;



procedure zvprtvfg_test();
var
szCmdLine: String;
begin
GetZanInstallDir(szCmdLine);

if (szCmdLine[Length(szCmdLine)] <> '\')
then szCmdLine := szCmdLine + '\';

szCmdLine := szCmdLine +
'zvprtcfg_win32 Zan Image Printer(bw) save.folder=c:\temp';

util_CreateProcess(szCmdLine);
end;


end.

#include <windows.h>
#include <winspool.h>
#include <shlobj.h>
#include <shlwapi.h>
#include <shellapi.h>

#pragma comment(lib, "shlwapi.lib")


//Determines whether the given path refers to 
//an existing directory
BOOL IsFolderExists(char *lpDirectoryName)
{
	if(0 == strlen(lpDirectoryName))
	{
		return FALSE;
	}

	DWORD dwFileAttr = GetFileAttributes(lpDirectoryName);

	if((dwFileAttr != 0xFFFFFFFF) &&
		(dwFileAttr & FILE_ATTRIBUTE_DIRECTORY))
	{
		return TRUE;
	}
	else
	{
		return FALSE;
	}
}



//Determines Zan Image Printer installation directory
void GetZanInstallDir(char *installfolder)
{
	HKEY hkeyStartup;

	//first check to see if the uninstall registry entry exists
	if(RegOpenKeyEx(HKEY_LOCAL_MACHINE,
		"\\Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\zvprt50",
		0,          
		KEY_READ,  
		&hkeyStartup) == ERROR_SUCCESS)
	{
		DWORD dwSize = MAX_PATH;

		if(RegQueryValueEx(hkeyStartup, 
			"UninstallString", 
			NULL,
			NULL,
			(LPBYTE)installfolder,
			&dwSize) == ERROR_SUCCESS)
		{
			PathRemoveFileSpec(installfolder);
			PathAddBackslash(installfolder);
		}

		/*Close the Key, we won't be needing it anymore*/
		RegCloseKey(hkeyStartup);

		if(IsFolderExists(installfolder))
		{
			return;
		}
	}

	//fallback to the \Program Files\zvprt50 folder:
	SHGetFolderPath(NULL, CSIDL_PROGRAM_FILES, NULL, 0, installfolder);
	PathAddBackslash(installfolder);

	strcat(installfolder,"zvprt50");
}


BOOL util_CreateProcess(char* command_line)
{
	PROCESS_INFORMATION pInfo;
	STARTUPINFO sInfo;

	ZeroMemory(&sInfo, sizeof(STARTUPINFO));
	sInfo.cb = sizeof(STARTUPINFO);
	sInfo.lpReserved = NULL;
	sInfo.lpReserved2 = NULL;
	sInfo.cbReserved2 = 0;
	sInfo.lpDesktop = NULL;
	sInfo.lpTitle = NULL;
	sInfo.dwFlags = 0;
	sInfo.dwX = 0;
	sInfo.dwY = 0;
	sInfo.dwFillAttribute = 0;
	sInfo.wShowWindow = SW_SHOW;

	BOOL bret = CreateProcess(NULL, command_line, NULL, NULL, 
		FALSE, 0, NULL, NULL, &sInfo, &pInfo);

	//WaitForSingleObject(pInfo.hProcess, INFINITE);

	CloseHandle(pInfo.hProcess);
	CloseHandle(pInfo.hThread);

	return bret;
}


int main(int argc, char* argv[])
{
	char szCmdLine[MAX_PATH];

	GetZanInstallDir(szCmdLine);
	PathAddBackslash(szCmdLine);

	strcat(szCmdLine,"zvprtcfg_win32 Zan Image Printer(bw) save.folder=c:\\temp");

	util_CreateProcess(szCmdLine);

	return 0;
}

using namespace System;
using namespace Microsoft::Win32;
using namespace System::IO;
using namespace System::Diagnostics;


//Determines Zan Image Printer installation directory
String^ GetZanInstallDir(void)
{
	String^ installfolder = String::Empty;
	RegistryKey ^ rkTest;

	//first check to see if the uninstall registry entry exists
	rkTest = Registry::LocalMachine->OpenSubKey(
		L"\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\zvprt50");
	if(rkTest)
	{
		installfolder = rkTest->GetValue(L"UninstallString")->ToString();
		rkTest->Close();

		if(installfolder->Length)
		{
			installfolder = Path::GetDirectoryName(installfolder);

			DirectoryInfo^ installdir1=gcnew DirectoryInfo(installfolder);
			if(installdir1->Exists)
			{
				return installfolder;
			}
		}
	}

	//fallback to the \Program Files\zvprt50 folder:
	installfolder = Environment::GetFolderPath
		(Environment::SpecialFolder::ProgramFiles);

	if(!installfolder->EndsWith(L"\\")) 
		installfolder = String::Concat(installfolder, L"\\");

	installfolder=String::Concat(installfolder, L"zvprt50");

	return installfolder;
}



int main(array ^args)
{
	String^ apppath;
	Process^  p;

	apppath = GetZanInstallDir();

	if(!apppath->EndsWith(L"\\")) 
		apppath = String::Concat(apppath, L"\\");

	apppath=String::Concat(apppath, L"zvprtcfg_win32");

	p = Process::Start(apppath, 
		L" Zan Image Printer(bw) save.folder=c:\\temp");

	//p->WaitForExit();


	return 0;
}

Imports System
Imports Microsoft.Win32
Imports System.IO
Imports System.Diagnostics

Module Module1
    'Determines Zan Image Printer installation directory
    Function GetZanInstallDir() As String
        Dim installfolder As String
        Dim rkTest As RegistryKey

        'first check to see if the uninstall registry entry exists
        rkTest = Registry.LocalMachine.OpenSubKey _
 ("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\zvprt50")

        If Not (rkTest Is Nothing) Then
            installfolder = rkTest.GetValue _
              ("UninstallString").ToString()
            rkTest.Close()
            If (installfolder.Length > 0) Then
                installfolder = Path.GetDirectoryName(installfolder)
                Dim installdir1 As DirectoryInfo = _
                   New DirectoryInfo(installfolder)

                If installdir1.Exists Then
                    Return installfolder
                End If
            End If
        End If
        'fallback to the \Program Files\zvprt50 folder:
        installfolder = Environment.GetFolderPath _
(Environment.SpecialFolder.ProgramFiles)

        If Not installfolder.EndsWith("\") Then
            installfolder = String.Concat(installfolder, "\")
        End If

        installfolder = String.Concat(installfolder, "zvprt50")
        Return installfolder
    End Function


    Sub Main()
        Dim apppath As String
        Dim p As Process

        apppath = GetZanInstallDir()

        If Not apppath.EndsWith("\") Then
            apppath = String.Concat(apppath, "\")
        End If

        apppath = String.Concat(apppath, "zvprtcfg_win32")
        p = Process.Start(apppath, _
       " Zan Image Printer(bw) save.folder=c:\temp")

        'p.WaitForExit()

    End Sub
End Module

using System;
using System.Collections.Generic;
using System.Text;
using System.Diagnostics;
using Microsoft.Win32;
using System.IO;


namespace callzvprtcfg_csharp
{
    class Program
    {
        //Determines Zan Image Printer installation directory
        static string GetZanInstallDir()
        {
            string installfolder = string.Empty;
            RegistryKey rkTest;

            //first check to see if the uninstall registry entry exists
            rkTest = Registry.LocalMachine.OpenSubKey(
            "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\zvprt50");

            if (rkTest != null)
            {
                installfolder = rkTest.GetValue("UninstallString").ToString();
                rkTest.Close();

                if (installfolder.Length > 0)
                {
                    installfolder = Path.GetDirectoryName(installfolder);

                    DirectoryInfo installdir1 = new DirectoryInfo(installfolder);
                    if (installdir1.Exists)
                    {
                        return installfolder;
                    }
                }
            }

            //fallback to the \Program Files\zvprt50 folder:
            installfolder = Environment.GetFolderPath
                (Environment.SpecialFolder.ProgramFiles);

            if (!installfolder.EndsWith("\\"))
                installfolder = string.Concat(installfolder, "\\");

            installfolder = string.Concat(installfolder, "zvprt50");

            return installfolder;
        }

        static void Main(string[] args)
        {
            string apppath;
            Process p;

            apppath = GetZanInstallDir();

            if (!apppath.EndsWith("\\"))
                apppath = String.Concat(apppath, "\\");

            apppath = String.Concat(apppath, "zvprtcfg_win32");

            p = Process.Start(apppath,
                " Zan Image Printer(bw) save.folder=c:\\temp");

            //p.WaitForExit();
        }
    }
}

[email]
method=2
port=465
from=me@gmail.com
to=me@example.com
cc=
displayname=John Smith
servername=smtp.gmail.com
username=me
password=
priority=0
ssl=1
auth=5
encoding=21
subject=Hello
zip=0
maxsize=20

[email]
method=1
mapi=0
to=me@example.com
cc=
subject=Hello
maxsize=20

C:\attach\attach1.pdf
C:\attach\attach2.pdf
C:\attach\text1.txt,text2.txt,image.jpg

C:\email\manual.pdf,document.doc,report.xls,data.txt

john@example.com
smith@recipients.com
david@mail.com
admin@isp.net

C:\Program Files\zvprt50>zvprtcfg "zan image printer(bw)" email.send=1

C:\Program Files\zvprt50>zvprtcfg email.send=-cfg "c:\email\smtpgmail.ini" 
-to -file "c:\email\to.txt" -attach -file "c:\email\attach.txt" -body 
-file "c:\email\body.txt" -password xxxxx -username john

C:\Program Files\zvprt50>zvprtcfg email.send=-cfg "c:\email\mapi.ini" 
-to "info@isp.net, john@example.com, david@mail.com" -body 
"Hi, this is a test email" -subject "test" -dump 1 
-attach "c:\attach\report.pdf;manual.doc;c:\help\manual.pdf"

;; Zan Image Printer batch print script

save.folder=c:\image
save.basefilename=[%DocName]_[04d%Page]
save.filenameindex=1
save.filexistact=auto pick
save.popupdialog=none
docuname.removestrings=1
docuname.removepath=1
image.pagetype=serialized
general.hidestsdialog=0
general.opacity=40


for imageformat in ['gif','tiff','jpeg', 'bmp', "pdf', 'jp2", "png']
image.fileformat=$imageformat
for imagecolor in ['bw','256','grayscale', 'true']
image.imagecolor=$imagecolor
for dpi in {'100', "150", "200", "240", "300"}
gpd.dpi=$dpi
print.html=c:\mydocs\*.htm
print.shellexecute=c:\mydocs\*.doc
end
end
end

for variable in {"value1", "value2", ...}
commands to do something
end

Option Explicit

Private Declare Function GetDefaultPrinter Lib "winspool.drv" Alias _
"GetDefaultPrinterA" (ByVal pszBuffer As String, pcchBuffer As Long) As Long

Private Declare Function CreateDC Lib "gdi32" Alias _
"CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, _
ByVal lpOutput As String, lpInitData As Any) As Long

Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" _
(ByVal hdc As Long, ByVal x As Long, ByVal y As Long, _
ByVal lpString As String, ByVal nCount As Long) As Long ' or Boolean

Private Declare Function StartDoc Lib "gdi32" Alias "StartDocA" _
(ByVal hdc As Long, lpdi As DOCINFO) As Long

Private Declare Function EndDoc Lib "gdi32" (ByVal hdc As Long) _
As Long

Private Declare Function StartPage Lib "gdi32" (ByVal hdc As Long) _
As Long

Private Declare Function EndPage Lib "gdi32" (ByVal hdc As Long) _
As Long

Private Type DOCINFO
cbSize As Long
lpszDocName As String
lpszOutput As String
lpszDatatype As String
fwType As Long
End Type

Public Sub Main()
Dim sPrinterName As String
Dim sNameBuff As String, lLen As Long
Dim OutString As String
Dim result As Long
Dim hPrintDc As Long 'Handle to printer dc
Dim di As DOCINFO 'Structure for Print Document info
Dim i As Integer

GetDefaultPrinter vbNullChar, lLen
sNameBuff = Space$(lLen)
GetDefaultPrinter sNameBuff, lLen

sPrinterName = Left$(sNameBuff, _
            InStr(sNameBuff, vbNullChar) - 1)

di.cbSize = Len(di)
di.lpszDocName = "e:\app\test.doc"

'Create a printer device context
hPrintDc=CreateDC(vbNullString,sPrinterName,vbNullString,ByVal 0&)

result = StartDoc(hPrintDc, di) 'Start a new print document

For i = 1 To 5
result = StartPage(hPrintDc) 'Start a new page
'Send text to printer
OutString = _
    "Message from default printer " & sPrinterName & " page #" & i

result=TextOut(hPrintDc, 20, 20, OutString, Len(OutString))
result = EndPage(hPrintDc) 'End the page
Next

result = EndDoc(hPrintDc) 'End the print job
result = DeleteDC(hPrintDc) 'Delete the device context
End Sub

uses
Windows, SysUtils, ShlObj, ShellAPI, SHFolder,
Graphics, WinSpool;

function GetDefaultPrinterA(prnName:PAnsiChar; var bufSize:DWORD):
BOOL; stdcall; external 'winspool.drv' name 'GetDefaultPrinterA';

procedure test_defprinter();

implementation

function getDefaultPrinterName:string;
var
  lprnName: PAnsiChar;
  lBufSize: DWord;
begin
  GetMem(lprnName, MAX_PATH);
  try
     lBufSize := MAX_PATH;
     GetDefaultPrinterA(lprnName, lBufSize);
     Result := lprnName;
  finally
     FreeMem(lprnName);
  end;
end;


procedure test_defprinter();
var
  stPrinter: String;
  msg: String;
  PrinterDC: HDC;
  DocInfo: TDocInfo;
  i: Integer;
begin
stPrinter := getDefaultPrinterName();
PrinterDC := CreateDC(nil, PChar(stPrinter), nil, nil);
//Fill Out the DocInfo structure for the spooler
FillChar(DocInfo, sizeof(DocInfo), #0);
GetMem(DocInfo.lpszDocName, 64);
DocInfo.cbSize := SizeOf(DocInfo);
StrPCopy(DocInfo.lpszDocName, 'e:\app\test.doc');
StartDoc(PrinterDC, DocInfo);

for i := 1 to 4 do begin
StartPage(PrinterDC);
msg := 'Message from default printer ' + stPrinter + ' page #' + IntToStr(i);
TextOut(PrinterDC, 20, 20, PChar(msg), Length(msg));
EndPage(PrinterDC);
end;

FreeMem(DocInfo.lpszDocName);
EndDoc(PrinterDC);
DeleteDC(PrinterDC);
end;

BOOL PrintTest(void)
{
   DWORD  size;
   HDC    hdcPrint;
	
   //get the size of the default printer name
   GetDefaultPrinter(NULL, &size);
	
   char *buffer = new char[size + 32];
	
   if(buffer == NULL)
   {
     return FALSE;
   }
	
   //buffer contains the printer name
   if(!GetDefaultPrinter(buffer, &size))
   {
	delete[] buffer;
	return FALSE;
   }
	
	
   hdcPrint = CreateDC(NULL, buffer, NULL, NULL);
   if(hdcPrint == NULL)
   {
      delete[] buffer;
      return FALSE;
   }

   DOCINFO di;
	
   memset( &di, 0, sizeof(DOCINFO));
   di.cbSize = sizeof(DOCINFO); 
   di.lpszDocName = "e:\\app\\test.doc"; 
   di.lpszOutput = (LPTSTR) NULL; 
   di.fwType = 0; 
	
	
   int nError = StartDoc(hdcPrint, &di);
   if(nError == SP_ERROR) 
   { 
	delete[] buffer;
        return FALSE;
   } 
	
   char tmpstr[MAX_PATH];
	
   //print 5 pages
   for(int i = 1; i < 5; i++)
   {
	StartPage(hdcPrint);
		
	wsprintf(tmpstr,
          "Message from default printer %s, page #%d", buffer, i);
		
	TextOut(hdcPrint, 20, 20, tmpstr, strlen(tmpstr));
		
	EndPage(hdcPrint);
    }
	
    EndDoc(hdcPrint);
    DeleteDC(hdcPrint);
	
    delete[] buffer;
	
    return TRUE;
}

Option Explicit

Private Declare Function GetDefaultPrinter Lib "winspool.drv" Alias _
"GetDefaultPrinterA" (ByVal pszBuffer As String, pcchBuffer As Long) As Long

Private Declare Function SetDefaultPrinter Lib "winspool.drv" _
   Alias "SetDefaultPrinterA" _
  (ByVal pszPrinter As String) As Long

Private Declare Function SHGetFolderPath Lib "shell32" _
Alias "SHGetFolderPathA" _
(ByVal hwndOwner As Long, ByVal nFolder As Long, _
ByVal hToken As Long, ByVal dwFlags As Long, _
ByVal pszPath As String) As Long
   
Private Declare Function WritePrivateProfileString Lib "kernel32.dll" _
Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Integer

Private Declare Function GetPrivateProfileInt Lib "kernel32.dll" _
Alias "GetPrivateProfileIntA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal nDefault As Integer, _
ByVal lpFileName As String) As Integer

   
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare Function WaitForSingleObject Lib "kernel32.dll" _
(ByVal hHandle As Long, ByVal _
dwMilliseconds As Long) As Long

Private Declare Function CreateEvent Lib "kernel32" _
Alias "CreateEventA" (ByVal lpEventAttributes As Long, _
ByVal bManualReset As Long, ByVal bInitialState As _
Long, ByVal lpname As String) As Long

Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
   Alias "RegOpenKeyExA" _
  (ByVal hKey As Long, _
   ByVal lpSubKey As String, _
   ByVal ulOptions As Long, _
   ByVal samDesired As Long, _
   phkResult As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" _
Alias "RegQueryValueExA" (ByVal hKey As Long, _
ByVal lpValueName As String, ByVal lpReserved As Long, _
lpType As Long, lpData As Any, lpcbData As Long) As Long


Private Declare Function GetVersionEx Lib "kernel32" _
   Alias "GetVersionExA" _
  (lpVersionInformation As OSVERSIONINFO) As Long



Private Const HKEY_LOCAL_MACHINE = &H80000002
'Registry action types.
Private Const ERROR_SUCCESS = 0
Private Const STANDARD_RIGHTS_READ As Long = &H20000
Private Const KEY_QUERY_VALUE As Long = &H1
Private Const KEY_ENUMERATE_SUB_KEYS As Long = &H8
Private Const KEY_NOTIFY As Long = &H10
Private Const SYNCHRONIZE As Long = &H100000
Private Const KEY_READ As Long = ((STANDARD_RIGHTS_READ Or _
                                   KEY_QUERY_VALUE Or _
                                   KEY_ENUMERATE_SUB_KEYS Or _
                                   KEY_NOTIFY) And _
                                   (Not SYNCHRONIZE))


'Used CSIDL values.
Private Const CSIDL_APPDATA As Long = &H1A
Private Const CSIDL_PROGRAM_FILES  As Long = &H26
Private Const CSIDL_COMMON_APPDATA As Long = &H23
Private Const CSIDL_COMMON_DOCUMENTS As Long = &H2E

Private Const SHGFP_TYPE_CURRENT = 0
Private Const S_OK As Long = 0
Private Const MAX_PATH = 260
Private Const SW_SHOWNORMAL = 1
Private Const INFINITE = &HFFFF

'Windows-defined type OSVERSIONINFO
Private Type OSVERSIONINFO
  OSVSize         As Long
  dwVerMajor      As Long 'dwVerMajor = 6: Vista or above
  dwVerMinor      As Long
  dwBuildNumber   As Long
                                 
  PlatformID      As Long
  szCSDVersion    As String * 128
                                 
End Type



'Determines whether the given path refers to an existing
'directory
Function DirExists(ByVal DName As String) As Boolean
Dim sDummy As String
On Error Resume Next

If Right(DName, 1) <> "\" Then DName = DName & "\"
sDummy = Dir$(DName & "*.*", vbDirectory)
DirExists = Not (sDummy = "")
End Function


'Searches a path for a file name
Function GetFilePath(FileName As String) As String
    Dim i As Long
    For i = Len(FileName) To 1 Step -1
        Select Case Mid$(FileName, i, 1)
            Case ":"
                GetFilePath = Left$(FileName, i)
                Exit For
            Case "\"
                GetFilePath = Left$(FileName, i - 1)
                Exit For
        End Select
    Next
End Function


'Determines Zan Image Printer installation directory
Private Function GetZanInstallDir() As String

Dim sPath As String
Dim szTmp As String * MAX_PATH
Dim lResult As Long
Dim hKey, dwSize As Long


dwSize = MAX_PATH

'first check to see if the uninstall registry entry exists
If RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
"\Software\Microsoft\Windows\CurrentVersion\Uninstall\zvprt50" _
      , 0&, KEY_READ, hKey) = ERROR_SUCCESS Then
      If RegQueryValueEx(hKey, "UninstallString", _
      0&, 0&, ByVal szTmp, dwSize) = ERROR_SUCCESS Then
      
      sPath = Left$(szTmp, _
            InStr(szTmp, vbNullChar) - 1)

      sPath = GetFilePath(sPath)
      
      If DirExists(sPath) Then
      GetZanInstallDir = sPath
      Exit Function
      End If
      
      End If
      
End If
     
'fallback to the \Program Files\zvprt50 folder:
lResult = SHGetFolderPath(0, _
                   CSIDL_PROGRAM_FILES, _
                   0, _
                   SHGFP_TYPE_CURRENT, _
                   szTmp)
                   
sPath = Left$(szTmp, _
            InStr(szTmp, vbNullChar) - 1)
            
If Right$(sPath, 1) <> "\" Then
    sPath = sPath & "\"
 End If
 sPath = sPath & "zvprt50"
 GetZanInstallDir = sPath
End Function



'Determines Zan Image Printer
'configuration directory for the ini setting files
Private Function GetZanConfigurationDir(ByVal szPrinter As String) As String
   Dim sPath As String * MAX_PATH
   Dim lResult As Long
   Dim lPolicy As Long
   Dim csidl As Long
   Dim osv As OSVERSIONINFO
   Dim LRet As Long
   Dim sCfg As String

   'read the OS info
   osv.OSVSize = Len(osv)
   LRet = GetVersionEx(osv)
   
   'read configure.ini from
   'Zan Image Printer installation directory
   sCfg = GetZanInstallDir()

   If Right$(sCfg, 1) <> "\" Then
    sCfg = sCfg & "\"
   End If
   sCfg = sCfg & "configure.ini"

   
   'Read the all users (per-machine) folder policy
   'from configure.ini:
   
   'policy=1: auto detect, if Vista or newer,
   'use CSIDL_COMMON_DOCUMENTS as the
   'all users (per-machine) folder;
   'otherwise, use CSIDL_COMMON_APPDATA
   'policy=2: use CSIDL_COMMON_APPDATA
   'policy=3: use CSIDL_COMMON_DOCUMENTS

   lPolicy = GetPrivateProfileInt("allusersfolder", "policy", _
   1, sCfg)
   
   'handle the auto detect policy
   If lPolicy = 1 Then
     'Vista and 2008: dwVerMajor>=6
     If osv.dwVerMajor >= 6 Then
     lPolicy = 3
     Else
     lPolicy = 2
     End If
   End If
   
   If lPolicy = 2 Then
   csidl = CSIDL_COMMON_APPDATA
   Else
   csidl = CSIDL_COMMON_DOCUMENTS
   End If
    
   
   'get the all users (per-machine) folder
   lResult = SHGetFolderPath(0, _
                   csidl, _
                   0, _
                   SHGFP_TYPE_CURRENT, _
                   sPath)
                   
   sCfg = Left$(sPath, _
            InStr(sPath, vbNullChar) - 1)
            
   If Right$(sCfg, 1) <> "\" Then
    sCfg = sCfg & "\"
   End If
   sCfg = sCfg & "zvprt50\" & szPrinter
   
   'if the all users (per-machine) folder exists,
   'then this zan image printer was installed per-machine:
   'all users share the same settings
   If DirExists(sCfg) Then
   'all users will share the same
   'settings for the printer
   GetZanConfigurationDir = sCfg
   Exit Function
   End If
   
   'if the all users (per-machine) folder doesn't exist,
   'assume each user has his own settings
   'for the printer:
   lResult = SHGetFolderPath(0, _
                   CSIDL_APPDATA, _
                   0, _
                   SHGFP_TYPE_CURRENT, _
                   sPath)
                   
   sCfg = Left$(sPath, _
            InStr(sPath, vbNullChar) - 1)
            
   If Right$(sCfg, 1) <> "\" Then
    sCfg = sCfg & "\"
   End If
   sCfg = sCfg & "zvprt50\" & szPrinter
   
   GetZanConfigurationDir = sCfg
End Function


Private Sub ShellExecutePrint(myDocument As String)
ShellExecute 0, "print", myDocument, _
    vbNullString, vbNullString, SW_SHOWNORMAL

End Sub



 Public Sub ShellExecutePrintTest()
 Dim szPrinter, szEnddocEvent, strPath, szDefPrinter As String
 Dim hEndDoc As Long
 Dim i As Long
 Dim sNameBuff As String, lLen As Long

 szPrinter = "Zan Image Printer(bw)"
 szEnddocEvent = "SignalPrintDone"
 
 hEndDoc = CreateEvent(ByVal 0&, False, False, szEnddocEvent)
 
 GetDefaultPrinter vbNullChar, lLen
 sNameBuff = Space$(lLen)
 GetDefaultPrinter sNameBuff, lLen

 szDefPrinter = Left$(sNameBuff, InStr(sNameBuff, vbNullChar) - 1)
 szDefPrinter = LCase(szDefPrinter)
 szPrinter = LCase(szPrinter)

 If szPrinter <> szDefPrinter Then
 SetDefaultPrinter szPrinter
 End If

 
 strPath = GetZanConfigurationDir(szPrinter)
 If Right$(strPath, 1) <> "\" Then
    strPath = strPath & "\"
 End If

 strPath = strPath & "event.ini"
 
 'enable event notification
 WritePrivateProfileString "event", "enable", _
   "1", strPath

 'set enddoc event name
 WritePrivateProfileString "event", "enddoc", szEnddocEvent, strPath
 
 ShellExecutePrint "c:\abc\1.doc"

 i = WaitForSingleObject(hEndDoc, INFINITE)

 ShellExecutePrint "c:\abc\1.pdf"

 i = WaitForSingleObject(hEndDoc, INFINITE)

 If szPrinter <> szDefPrinter Then
 SetDefaultPrinter szDefPrinter
 End If

 CloseHandle (hEndDoc)
End Sub



Public Sub Main()
ShellExecutePrintTest

End Sub

unit zanprinter;

interface
uses
Windows, Messages, SysUtils, ShlObj, ShellAPI, SHFolder;

function GetDefaultPrinter(prnName:PAnsiChar; var bufSize:DWORD):
BOOL; stdcall; external 'winspool.drv' name 'GetDefaultPrinterA';

function SetDefaultPrinter(prnName:PAnsiChar):
BOOL; stdcall; external 'winspool.drv' name 'SetDefaultPrinterA';

procedure ShellExecutePrint(myDocument:String);
procedure ShellExecutePrintTest();
procedure GetZanInstallDir(var APath: String);
procedure GetZanConfigurationDir(var szPrinter: String;
var cfgdir: String);

implementation

//Determines Zan Image Printer installation directory
procedure GetZanInstallDir(var APath: String);
var
  hkeyStartup: HKEY;
  dwSize: DWORD;
begin
  dwSize := MAX_PATH;
  SetLength(APath, MAX_PATH);

  //first check to see if the uninstall registry entry exists
  if RegOpenKeyEx(HKEY_LOCAL_MACHINE,
   '\Software\Microsoft\Windows\CurrentVersion\Uninstall\zvprt50',
   0,
   KEY_READ,
   hkeyStartup) = ERROR_SUCCESS then
   begin

   if RegQueryValueEx(hkeyStartup,
                     'UninstallString', nil, nil,
                      PBYTE(Pchar(APath)),
                      @dwSize) = ERROR_SUCCESS then
   begin
      APath := String (PChar(APath));
      APath := ExtractFilePath(APath);
   end;

   //Close the Key, we won't be needing it anymore
   RegCloseKey(hkeyStartup);

   if DirectoryExists(APath) then Exit;
  end;

  //fallback to the \Program Files\zvprt50 folder:
  SHGetFolderPath(0, CSIDL_PROGRAM_FILES, 0, 0,
                  PChar(APath));

  APath := String (PChar (APath));
  if (APath[Length(APath)] <> '\')
  then APath := APath + '\';

  APath := APath + 'zvprt50';
end;


//Determines Zan Image Printer
//configuration directory for the ini setting files
procedure GetZanConfigurationDir(var szPrinter: String;
var cfgdir: String);
var
  osv: TOSVersionInfo;
  lPolicy, csidl: Integer;
begin
  SetLength(cfgdir, MAX_PATH);

  //read the OS info
  FillChar(osv, SizeOf(osv), 0);
  osv.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  GetVersionEx(osv);

  //read configure.ini from
  //Zan Image Printer installation directory
  GetZanInstallDir(cfgdir);
  if (cfgdir[Length(cfgdir)] <> '\') then cfgdir := cfgdir + '\';
  cfgdir := cfgdir + 'configure.ini';

  //read configure.ini from
  //Zan Image Printer installation directory.
  //Read the all users (per-machine) folder policy
  //rom configure.ini:

  //policy=1: auto detect, if Vista or newer,
  //use CSIDL_COMMON_DOCUMENTS as the
  //all users (per-machine) folder;
  //otherwise, use CSIDL_COMMON_APPDATA
  //policy=2: use CSIDL_COMMON_APPDATA
  //policy=3: use CSIDL_COMMON_DOCUMENTS
  lPolicy := GetPrivateProfileInt('allusersfolder', 'policy',
   1, PChar(cfgdir));

  //handle the auto detect policy
  if lPolicy = 1 then
  begin
     //Vista and 2008: dwVerMajor>=6
     if osv.dwMajorVersion >= 6 then lPolicy := 3
     else  lPolicy := 2;
  end;

  if lPolicy = 2 then  csidl := CSIDL_COMMON_APPDATA
  else  csidl := CSIDL_COMMON_DOCUMENTS;

  //get the all users (per-machine) folder
  SetLength(cfgdir, MAX_PATH);
  SHGetFolderPath(0, csidl, 0, 0, PChar(cfgdir));
  cfgdir := String (PChar (cfgdir));
  if (cfgdir[Length(cfgdir)] <> '\') then cfgdir := cfgdir + '\';
  cfgdir := cfgdir + 'zvprt50\' + szPrinter;

  //if the all users (per-machine) folder exists,
  //then this zan image printer was installed per-machine:
  //all users share the same settings
  if DirectoryExists(cfgdir) then Exit;

  //if the all users (per-machine) folder doesn't exist,
  //assume each user has his own settings
  //for the printer:
  SHGetFolderPath(0, CSIDL_APPDATA, 0, 0, PChar(cfgdir));
  cfgdir := String (PChar (cfgdir));
  if (cfgdir[Length(cfgdir)] <> '\') then cfgdir := cfgdir + '\';
  cfgdir := cfgdir + 'zvprt50\' + szPrinter;
end;

procedure ShellExecutePrint(myDocument:String);
begin
ShellExecute(0, 'print', PChar(myDocument), nil, nil, SW_SHOW);
end;

procedure ShellExecutePrintTest();
  var
  szPrinter, szEnddocEvent, strPath, szDefPrinter: String;
  lBufSize: DWord;
  hEndDoc: THandle;
  begin
  szPrinter := 'Zan Image Printer(bw)';
  szEnddocEvent := 'SignalPrintDone';

  hEndDoc := CreateEvent(nil,False,False,Pchar(szEnddocEvent));

  SetLength(szDefPrinter, MAX_PATH);
  lBufSize := MAX_PATH;
  GetDefaultPrinter(Pchar(szDefPrinter), lBufSize);
  szDefPrinter := String (PChar(szDefPrinter));
  szDefPrinter := LowerCase(szDefPrinter);
  szPrinter := LowerCase(szPrinter);

  //change the default printer prior to calling the
  //ShellExecutePrint function.
  if(szPrinter <> szDefPrinter)
  then SetDefaultPrinter(PChar(szPrinter));

  GetZanConfigurationDir(szPrinter, strPath);
  if (strPath[Length(strPath)] <> '\')
  then  strPath := strPath + '\';
  strPath :=strPath + 'event.ini';

  //enable event notification
  WritePrivateProfileString('event',
  'enable', '1', Pchar(strPath));
  //set enddoc event name
  WritePrivateProfileString('event',
  'enddoc', Pchar(szEnddocEvent), Pchar(strPath));

  //The print job status is "sent to printer" when
  //ShellExecutePrint returns.
  ShellExecutePrint('c:\abc\1.doc');
  //wait for the EndDoc event to be received,
  //an indication that the submitted print
  //job has indeed completed
  WaitForSingleObject(hEndDoc, INFINITE);

  //The print job status is "sent to printer" when
  //ShellExecutePrint returns.
  ShellExecutePrint('c:\abc\1.pdf');
  //wait for the EndDoc event to be received,
  //an indication that the submitted print
  //job has indeed completed
  WaitForSingleObject(hEndDoc, INFINITE);

  //set default printer back to original
  if(szPrinter <> szDefPrinter)
  then SetDefaultPrinter(PChar(szDefPrinter));

  CloseHandle(hEndDoc);
end;

end.

#include <windows.h>
#include <winspool.h>
#include <shlobj.h>
#include <shlwapi.h>
#include <shellapi.h>

/*#import statement and smart pointers*/
#import  <shdocvw.dll>

#pragma comment(lib, "shlwapi.lib")


//Determines whether the given path refers to 
//an existing directory
BOOL IsFolderExists(char *lpDirectoryName)
{
	if(0 == strlen(lpDirectoryName))
	{
		return FALSE;
	}

	DWORD dwFileAttr = GetFileAttributes(lpDirectoryName);

	if((dwFileAttr != 0xFFFFFFFF) &&
		(dwFileAttr & FILE_ATTRIBUTE_DIRECTORY))
	{
		return TRUE;
	}
	else
	{
		return FALSE;
	}
}



//Determines Zan Image Printer installation directory
void GetZanInstallDir(char *installfolder)
{
	HKEY hkeyStartup;

	//first check to see if the uninstall registry entry exists
	if(RegOpenKeyEx(HKEY_LOCAL_MACHINE,
		"\\Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\zvprt50",
		0,          
		KEY_READ,  
		&hkeyStartup) == ERROR_SUCCESS)
	{
		DWORD dwSize = MAX_PATH;

		if(RegQueryValueEx(hkeyStartup, 
			"UninstallString", 
			NULL,
			NULL,
			(LPBYTE)installfolder,
			&dwSize) == ERROR_SUCCESS)
		{
			PathRemoveFileSpec(installfolder);
			PathAddBackslash(installfolder);
		}

		/*Close the Key, we won't be needing it anymore*/
		RegCloseKey(hkeyStartup);

		if(IsFolderExists(installfolder))
		{
			return;
		}
	}

	//fallback to the \Program Files\zvprt50 folder:
	SHGetFolderPath(NULL, CSIDL_PROGRAM_FILES, NULL, 0, installfolder);
	PathAddBackslash(installfolder);

	strcat(installfolder,"zvprt50");
}



BOOL IsVistaOrAbove(void)
{
	OSVERSIONINFOEX osvi;
	BOOL bOsVersionInfoEx;

	ZeroMemory(&osvi, sizeof(OSVERSIONINFOEX));

	//Try calling GetVersionEx using the OSVERSIONINFOEX structure.
	//If that fails, try using the OSVERSIONINFO structure.
	osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOEX);
	if(!(bOsVersionInfoEx = GetVersionEx((OSVERSIONINFO*)&osvi)))
	{
		osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
		if(!GetVersionEx((OSVERSIONINFO*)&osvi))
			return FALSE;
	}

	//vista and 2008: 6
	//2003: 5
	//xp: 5
	if(osvi.dwMajorVersion >= 6)
	{
		return TRUE;
	}
	else
	{
		return FALSE;
	}
}



//Determines Zan Image Printer
//configuration directory for the ini setting files
void GetZanConfigurationDir(char *sPrinter, char *sCfg)
{
	DWORD lPolicy;
	DWORD csidl;

	//read configure.ini from
	//Zan Image Printer installation directory
	GetZanInstallDir(sCfg);
	PathAddBackslash(sCfg);
	strcat(sCfg,"configure.ini");

	//Read the all users (per-machine) folder policy
	//from configure.ini:

	//policy=1: auto detect, if Vista or newer,
	//use CSIDL_COMMON_DOCUMENTS as the
	//all users (per-machine) folder;
	//otherwise, use CSIDL_COMMON_APPDATA
	//policy=2: use CSIDL_COMMON_APPDATA
	//policy=3: use CSIDL_COMMON_DOCUMENTS

	lPolicy = GetPrivateProfileInt("allusersfolder", 
		"policy", 1, sCfg);

	//handle the auto detect policy
	if(1 == lPolicy)
	{
		if(IsVistaOrAbove())  lPolicy = 3;
		else lPolicy = 2;
	}


	if(2 == lPolicy)
	{
		csidl = CSIDL_COMMON_APPDATA;
	}
	else
	{
		csidl = CSIDL_COMMON_DOCUMENTS;
	}

	//get the all users (per-machine) folder
	SHGetFolderPath(NULL, csidl, NULL, 0, sCfg);
	PathAddBackslash(sCfg);
	strcat(sCfg, "zvprt50\\");
	strcat(sCfg, sPrinter);
		

	//if the all users (per-machine) folder exists,
	//then this zan image printer was installed per-machine: 
	//all users share the same settings
	if(IsFolderExists(sCfg)) return;


	//if the all users (per-machine) folder doesn't exist,
	//assume each user has his own settings
	//for the printer:
	SHGetFolderPath(NULL, CSIDL_APPDATA, NULL, 0, sCfg);
	PathAddBackslash(sCfg);
	strcat(sCfg, "zvprt50\\");
	strcat(sCfg, sPrinter);
}


void ShellExecutePrint(char *myDocument)
{
   ShellExecute(NULL, "print", myDocument, 
    NULL, NULL, SW_SHOWNORMAL);
}


int main(int argc, char* argv[])
{
	char* szPrinter = "Zan Image Printer(bw)";
	char* szEnddocEvent = "SignalPrintDone";
	char  strPath[MAX_PATH];
	char  szDefPrinter[MAX_PATH];
	HANDLE hEndDoc;

	hEndDoc = CreateEvent(NULL, FALSE, FALSE, szEnddocEvent);
	if(hEndDoc == NULL)
	{
		return -1;
	}

	DWORD dwBufSize = MAX_PATH;
	GetDefaultPrinter(szDefPrinter, &dwBufSize);

	/*
	change the default printer prior to calling the
	ShellExecutePrint function.
	*/
	if(strcmpi(szPrinter, szDefPrinter))
	{
		SetDefaultPrinter(szPrinter);
	}

    GetZanConfigurationDir(szPrinter, strPath);
	PathAddBackslash(strPath);
	strcat(strPath,"event.ini");

	//enable event notification
	WritePrivateProfileString("event", "enable", "1", strPath);
	//set enddoc event name
	WritePrivateProfileString("event", "enddoc", 
		szEnddocEvent, strPath);

	//The print job status is "sent to printer" when
	//ShellExecutePrint returns.
	ShellExecutePrint("c:\\abc\\1.doc");
	//wait for the EndDoc event to be received,
	//an indication that the submitted print job has 
	//indeed completed
	WaitForSingleObject(hEndDoc, INFINITE);

	//The print job status is "sent to printer" when
	//ShellExecutePrint returns.
	ShellExecutePrint("c:\\abc\\1.pdf");
	//wait for the EndDoc event to be received,
	//an indication that the submitted print job has 
	//indeed completed
	WaitForSingleObject(hEndDoc, INFINITE);

	/*set default printer back to original*/
	if(strcmpi(szPrinter, szDefPrinter))
	{
		SetDefaultPrinter(szDefPrinter);
	}

	return 0;
}

using namespace System;
using namespace System::Text;
using namespace System::IO;
using namespace System::Runtime::InteropServices;
using namespace System::Diagnostics;
using namespace System::Threading;
using namespace Microsoft::Win32;


// Declare the function that is exported from unmanaged dll:
[DllImport("KERNEL32.DLL")]
extern "C" int _cdecl GetPrivateProfileString(
   String^ lpAppName, 
   String^ lpKeyName,
   String^ lpDefault, 
   StringBuilder^ lpReturnedString, 
   int nSize,
   String^ lpFileName);

[DllImport("KERNEL32.DLL")]
extern "C" bool _cdecl WritePrivateProfileString(
   String^ lpAppName, 
   String^ lpKeyName,
   String^ lpString, 
   String^ lpFileName);

[DllImport("KERNEL32.DLL")]
extern "C" int _cdecl GetPrivateProfileInt(
   String^ lpAppName, 
   String^ lpKeyName,
   int nDefault, 
   String^ lpFileName);

[DllImport("shell32.dll")]
extern "C" bool _cdecl SHGetFolderPath(int hwndOwner,
int nFolder, int hToken, int dwFlags, StringBuilder^ pszPath);
const int CSIDL_COMMON_DOCUMENTS = 0x002e;


[DllImport("winspool.drv")]
extern "C" bool _cdecl GetDefaultPrinter(
	 StringBuilder^ pszBuffer, int *size);

[DllImport("winspool.drv")]
extern "C" bool _cdecl SetDefaultPrinter(
	 String^ pszPrinter);


//Determines Zan Image Printer installation directory
String^ GetZanInstallDir(void)
{
	String^ installfolder = String::Empty;
	RegistryKey ^ rkTest;

	//first check to see if the uninstall registry entry exists
	rkTest = Registry::LocalMachine->OpenSubKey(
		L"\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\zvprt50");
	if(rkTest)
	{
		installfolder = rkTest->GetValue(L"UninstallString")->ToString();
		rkTest->Close();

		if(installfolder->Length)
		{
			installfolder = Path::GetDirectoryName(installfolder);

			DirectoryInfo^ installdir1=gcnew DirectoryInfo(installfolder);
			if(installdir1->Exists)
			{
				return installfolder;
			}
		}
	}

	//fallback to the \Program Files\zvprt50 folder:
	installfolder = Environment::GetFolderPath
		(Environment::SpecialFolder::ProgramFiles);

	if(!installfolder->EndsWith(L"\\")) 
		installfolder = String::Concat(installfolder, L"\\");

	installfolder=String::Concat(installfolder, L"zvprt50");

	return installfolder;
}


//Determines Zan Image Printer
//configuration directory for the ini setting files
String^ GetZanConfigurationDir(String^ szPrinter)
{
	//read the OS info
	OperatingSystem^ os = System::Environment::OSVersion;
	String^ sCfg;
	int lPolicy;
	StringBuilder^ tmpstr = gcnew StringBuilder(256);

	//read configure.ini from
	//Zan Image Printer installation directory
	sCfg = GetZanInstallDir();

	if(!sCfg->EndsWith(L"\\")) 
		sCfg = String::Concat(sCfg, L"\\");

	sCfg = String::Concat(sCfg, L"configure.ini");


	//Read the all users (per-machine) folder policy
	//from configure.ini:

	//policy=1: auto detect, if Vista or newer,
	//use CSIDL_COMMON_DOCUMENTS as the
	//all users (per-machine) folder;
	//otherwise, use CSIDL_COMMON_APPDATA
	//policy=2: use CSIDL_COMMON_APPDATA
	//policy=3: use CSIDL_COMMON_DOCUMENTS

	lPolicy = GetPrivateProfileInt(L"allusersfolder", L"policy",
		1, sCfg);

	//handle the auto detect policy
	if(1 == lPolicy)
	{
		//Vista and 2008: dwVerMajor>=6
		if(os->Version->Major >= 6)
		{
			lPolicy = 3;
		}
		else
		{
			lPolicy = 2;
		}
	}


	//get the all users (per-machine) folder
	//if the all users (per-machine) folder exists,
	//then this zan image printer was installed per-machine: 
	//all users share the same settings
	if(2 == lPolicy)
	{
		//csidl = CSIDL_COMMON_APPDATA;
		sCfg = Environment::GetFolderPath
			(Environment::SpecialFolder::CommonApplicationData);

	}
	else
	{
		//csidl = CSIDL_COMMON_DOCUMENTS;
		SHGetFolderPath(0, CSIDL_COMMON_DOCUMENTS, 0, 0, tmpstr);
		sCfg = tmpstr->ToString();
	}

	if(!sCfg->EndsWith(L"\\")) sCfg = String::Concat(sCfg, L"\\");
	sCfg = String::Concat(sCfg, L"zvprt50\\");
	sCfg = String::Concat(sCfg, szPrinter);

	//all users will share the same
	//settings for the printer
	DirectoryInfo^ tmpdir = gcnew DirectoryInfo(sCfg);
	if(tmpdir->Exists)
	{
		return sCfg;
	}

	//if the all users (per-machine) folder doesn't exist,
	//assume each user has his own settings
	//for the printer:
	sCfg = Environment::GetFolderPath
		(Environment::SpecialFolder::ApplicationData);

	if(!sCfg->EndsWith(L"\\")) sCfg = String::Concat(sCfg, L"\\");
	sCfg = String::Concat(sCfg, L"zvprt50\\");
	sCfg = String::Concat(sCfg, szPrinter);

	return sCfg;
}



void ShellExecutePrint(String ^myDocument)
{
  Process^ myProcess = gcnew Process;

  myProcess->StartInfo->FileName = myDocument;
  myProcess->StartInfo->Verb = L"Print";
  myProcess->StartInfo->CreateNoWindow = true;
  myProcess->Start();
}


int main(array ^args)
{
 String^ szPrinter = L"Zan Image Printer(bw)";
 String^ szEnddocEvent = L"SignalPrintDone";
 String^ strPath;

 StringBuilder^ tempstr = gcnew StringBuilder(256);
 String^ szDefPrinter;
 int dwBufSize = tempstr->Capacity;

 GetDefaultPrinter(tempstr, &dwBufSize);
 szDefPrinter = tempstr->ToString();

 /*
 change the default printer prior to calling the
 ShellExecutePrint function.
 */
 if(String::Compare(szPrinter, szDefPrinter, true) != 0)
 {
   SetDefaultPrinter(szPrinter);
 }

 strPath = GetZanConfigurationDir(szPrinter);

 if(!strPath->EndsWith(L"\\")) strPath=String::Concat(strPath,L"\\");
 strPath = String::Concat(strPath, 
 	L"event.ini");

 //enable event notification
 WritePrivateProfileString(L"event", L"enable", L"1", strPath);
 //set enddoc event name
 WritePrivateProfileString(L"event", L"enddoc", szEnddocEvent, strPath);

 EventWaitHandle^ ewh;
 ewh=gcnew EventWaitHandle(false,EventResetMode::AutoReset,szEnddocEvent);

 //The print job status is "sent to printer" when
 //ShellExecutePrint returns.
 ShellExecutePrint(L"c:\\abc\\1.doc");
 //wait for the EndDoc event to be received,
 //an indication that the submitted print job has indeed completed
  ewh->WaitOne();

 //The print job status is "sent to printer" when
 //ShellExecutePrint returns.
 ShellExecutePrint(L"c:\\abc\\1.pdf");
 //wait for the EndDoc event to be received,
 //an indication that the submitted print job has indeed completed
 ewh->WaitOne();

 /*set default printer back to original*/
 if(String::Compare(szPrinter, szDefPrinter, true) != 0)
 {
   SetDefaultPrinter(szDefPrinter);
 }

 return 0;
}

Imports System
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Diagnostics
Imports System.Threading
Imports System.IO
Imports Microsoft.Win32


Module Module1
    Declare Function GetDefaultPrinter Lib "winspool.drv" _
    Alias "GetDefaultPrinterA" _
    (ByVal pszBuffer As System.Text.StringBuilder, _
    ByRef size As Int32) As Boolean

    Declare Function SetDefaultPrinter Lib "winspool.drv" _
    Alias "SetDefaultPrinterA" _
    (ByVal pszPrinter As String) As Boolean

    Private Declare Function GetPrivateProfileString Lib "kernel32" _
     Alias "GetPrivateProfileStringW" _
    (ByVal lpAppName As String, _
     ByVal lpKeyName As String, _
     ByVal lpDefault As String, _
     ByVal lpReturnedString As StringBuilder, _
     ByVal nSize As Integer, _
     ByVal lpFileName As String) As Integer

    Private Declare Function GetPrivateProfileInt Lib "kernel32.dll" _
            Alias "GetPrivateProfileIntA" _
           (ByVal lpApplicationName _
            As String, ByVal lpKeyName As String, ByVal nDefault As _
            Integer, ByVal lpFileName As String) As Integer

    Private Declare Function WritePrivateProfileString Lib "kernel32.dll" _
            Alias "WritePrivateProfileStringA" _
           (ByVal lpAppName As String, _
            ByVal lpKeyName As String, _
            ByVal lpString As String, _
            ByVal lpFileName As String) As Boolean

    Private Declare Function SHGetFolderPath Lib "shell32.dll" _
    Alias "SHGetFolderPathA" _
    (ByVal hwndOwner As Integer, _
    ByVal nFolder As Integer, _
    ByVal hToken As Integer, _
    ByVal dwFlags As Integer, _
    ByVal pszPath As StringBuilder) As Integer

    'All Users\Documents 
    Private Const CSIDL_COMMON_DOCUMENTS = &H2E


    'Determines Zan Image Printer installation directory
    Function GetZanInstallDir() As String
        Dim installfolder As String
        Dim rkTest As RegistryKey

        'first check to see if the uninstall registry entry exists
        rkTest = Registry.LocalMachine.OpenSubKey _
 ("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\zvprt50")

        If Not (rkTest Is Nothing) Then
            installfolder = rkTest.GetValue _
              ("UninstallString").ToString()
            rkTest.Close()
            If (installfolder.Length > 0) Then
                installfolder = Path.GetDirectoryName(installfolder)
                Dim installdir1 As DirectoryInfo = _
                   New DirectoryInfo(installfolder)

                If installdir1.Exists Then
                    Return installfolder
                End If
            End If
        End If
        'fallback to the \Program Files\zvprt50 folder:
        installfolder = Environment.GetFolderPath _
(Environment.SpecialFolder.ProgramFiles)

        If Not installfolder.EndsWith("\") Then
            installfolder = String.Concat(installfolder, "\")
        End If

        installfolder = String.Concat(installfolder, "zvprt50")
        Return installfolder
    End Function


    'Determines Zan Image Printer
    'configuration directory for the ini setting files
    Function GetZanConfigurationDir(ByVal szPrinter As String) As String
        'read the OS info
        Dim os As OperatingSystem
        Dim sCfg As String
        Dim lPolicy As Integer
        Dim tmpstr As StringBuilder

        tmpstr = New StringBuilder(256)

        os = System.Environment.OSVersion

        'read configure.ini from
        'Zan Image Printer installation directory
        sCfg = GetZanInstallDir()

        If Not sCfg.EndsWith("\") Then
            sCfg = String.Concat(sCfg, "\")
        End If

        sCfg = String.Concat(sCfg, "configure.ini")


        'Read the all users (per-machine) folder policy
        'from configure.ini:

        'policy=1: auto detect, if Vista or newer,
        'use CSIDL_COMMON_DOCUMENTS as the
        'all users (per-machine) folder;
        'otherwise, use CSIDL_COMMON_APPDATA
        'policy=2: use CSIDL_COMMON_APPDATA
        'policy=3: use CSIDL_COMMON_DOCUMENTS

        lPolicy = GetPrivateProfileInt("allusersfolder", _
            "policy", 1, sCfg)

        'Vista and 2008: dwVerMajor>=6
        If lPolicy = 1 Then
            If os.Version.Major >= 6 Then
                lPolicy = 3
            Else
                lPolicy = 2
            End If
        End If


        'get the all users (per-machine) folder
        'if the all users (per-machine) folder exists,
        'then this zan image printer was installed per-machine: 
        'all users share the same settings
        If lPolicy = 2 Then
            'csidl = CSIDL_COMMON_APPDATA;
            sCfg = Environment.GetFolderPath( _
            Environment.SpecialFolder.CommonApplicationData)
        Else
            'csidl = CSIDL_COMMON_DOCUMENTS;
            SHGetFolderPath(0, CSIDL_COMMON_DOCUMENTS, 0, 0, tmpstr)
            sCfg = tmpstr.ToString()
        End If


        If Not sCfg.EndsWith("\") Then
            sCfg = String.Concat(sCfg, "\")
        End If
        sCfg = String.Concat(sCfg, "zvprt50\")
        sCfg = String.Concat(sCfg, szPrinter)

        'all users will share the same
        'settings for the printer
        Dim tmpdir As DirectoryInfo = _
                   New DirectoryInfo(sCfg)

        If tmpdir.Exists Then
            Return sCfg
        End If

        'if the all users (per-machine) folder doesn't exist,
        'assume each user has his own settings
        'for the printer:
        sCfg = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)

        If Not sCfg.EndsWith("\") Then
            sCfg = String.Concat(sCfg, "\")
        End If
        sCfg = String.Concat(sCfg, "zvprt50\")
        sCfg = String.Concat(sCfg, szPrinter)

        Return sCfg
    End Function



    Private Sub ShellExecutePrint(ByVal myDocument As String)
        Dim myProcess As Process = New Process

        myProcess.StartInfo.FileName = myDocument
        myProcess.StartInfo.Verb = "Print"
        myProcess.StartInfo.CreateNoWindow = True
        myProcess.Start()
    End Sub


    Sub Main()
        Dim szPrinter As String = "Zan Image Printer(bw)"
        Dim szEnddocEvent As String = "SignalPrintDone"
        Dim strPath As String
        Dim tempstr As StringBuilder

        tempstr = New StringBuilder(256)

        Dim szDefPrinter As String
        Dim dwBufSize As Integer
        dwBufSize = tempstr.Capacity

        GetDefaultPrinter(tempstr, dwBufSize)
        szDefPrinter = tempstr.ToString()

        'change the default printer prior to calling the
        'ShellExecutePrint function.
        If String.Compare(szPrinter, szDefPrinter, True) <> 0 Then
            SetDefaultPrinter(szPrinter)
        End If

        strPath = GetZanConfigurationDir(szPrinter)

        If Not strPath.EndsWith("\") Then
            strPath = String.Concat(strPath, "\")
        End If

        strPath = String.Concat(strPath, "event.ini")

        'enable event notification
        WritePrivateProfileString("event", "enable", "1", strPath)
        'set enddoc event name
        WritePrivateProfileString("event", "enddoc", szEnddocEvent, strPath)

        Dim ewh As EventWaitHandle
        ewh = New EventWaitHandle(False, _
        EventResetMode.AutoReset, szEnddocEvent)

        'The print job status is "sent to printer" when
        'ShellExecutePrint returns.
        ShellExecutePrint("c:\abc\1.doc")
        'wait for the EndDoc event to be received,
        'an indication that the submitted print job has indeed completed
        ewh.WaitOne()

        'The print job status is "sent to printer" when
        'ShellExecutePrint returns.
        ShellExecutePrint("c:\abc\1.pdf")
        'wait for the EndDoc event to be received,
        'an indication that the submitted print job has indeed completed
        ewh.WaitOne()

        'set default printer back to original
        If String.Compare(szPrinter, szDefPrinter, True) <> 0 Then
            SetDefaultPrinter(szDefPrinter)
        End If
    End Sub
End Module

using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;
using System.Diagnostics;
using System.Threading;
using System.IO;
using Microsoft.Win32;


namespace shellexec_csharp
{
    class Program
    {
        //Determines Zan Image Printer installation directory
        static string GetZanInstallDir()
        {
            string installfolder = string.Empty;
            RegistryKey rkTest;

            //first check to see if the uninstall registry entry exists
            rkTest = Registry.LocalMachine.OpenSubKey(
            "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\zvprt50");

            if (rkTest != null)
            {
                installfolder = rkTest.GetValue("UninstallString").ToString();
                rkTest.Close();

                if (installfolder.Length > 0)
                {
                    installfolder = Path.GetDirectoryName(installfolder);

                    DirectoryInfo installdir1 = new DirectoryInfo(installfolder);
                    if (installdir1.Exists)
                    {
                        return installfolder;
                    }
                }
            }

            //fallback to the \Program Files\zvprt50 folder:
            installfolder = Environment.GetFolderPath
                (Environment.SpecialFolder.ProgramFiles);

            if (!installfolder.EndsWith("\\"))
                installfolder = string.Concat(installfolder, "\\");

            installfolder = string.Concat(installfolder, "zvprt50");

            return installfolder;
        }



        //Determines Zan Image Printer
        //configuration directory for the ini setting files
        static string GetZanConfigurationDir(string szPrinter)
        {
            //read the OS info
            OperatingSystem os = System.Environment.OSVersion;
            string sCfg;
            uint lPolicy;
            StringBuilder tmpstr = new StringBuilder(256);

            //read configure.ini from
            //Zan Image Printer installation directory
            sCfg = GetZanInstallDir();

            if (!sCfg.EndsWith("\\"))
                sCfg = string.Concat(sCfg, "\\");

            sCfg = string.Concat(sCfg, "configure.ini");


            //Read the all users (per-machine) folder policy
            //from configure.ini:

            //policy=1: auto detect, if Vista or newer,
            //use CSIDL_COMMON_DOCUMENTS as the
            //all users (per-machine) folder;
            //otherwise, use CSIDL_COMMON_APPDATA
            //policy=2: use CSIDL_COMMON_APPDATA
            //policy=3: use CSIDL_COMMON_DOCUMENTS

            lPolicy = GetPrivateProfileInt("allusersfolder", "policy",
                1, sCfg);

            //handle the auto detect policy
            if (1 == lPolicy)
            {
                //Vista and 2008: dwVerMajor>=6
                if (os.Version.Major >= 6)
                {
                    lPolicy = 3;
                }
                else
                {
                    lPolicy = 2;
                }
            }


            //get the all users (per-machine) folder
            //if the all users (per-machine) folder exists,
            //then this zan image printer was installed per-machine: 
            //all users share the same settings
            if (2 == lPolicy)
            {
                //csidl = CSIDL_COMMON_APPDATA;
                sCfg = Environment.GetFolderPath
                    (Environment.SpecialFolder.CommonApplicationData);

            }
            else
            {
                //csidl = CSIDL_COMMON_DOCUMENTS;
                SHGetFolderPath(0, CSIDL_COMMON_DOCUMENTS, 0, 0, tmpstr);
                sCfg = tmpstr.ToString();
            }

            if (!sCfg.EndsWith("\\")) sCfg = string.Concat(sCfg, "\\");
            sCfg = string.Concat(sCfg, "zvprt50\\");
            sCfg = string.Concat(sCfg, szPrinter);

            //all users will share the same
            //settings for the printer
            DirectoryInfo tmpdir = new DirectoryInfo(sCfg);
            if (tmpdir.Exists)
            {
                return sCfg;
            }

            //if the all users (per-machine) folder doesn't exist,
            //assume each user has his own settings
            //for the printer:
            sCfg = Environment.GetFolderPath
                (Environment.SpecialFolder.ApplicationData);

            if (!sCfg.EndsWith("\\")) sCfg = string.Concat(sCfg, "\\");
            sCfg = string.Concat(sCfg, "zvprt50\\");
            sCfg = string.Concat(sCfg, szPrinter);

            return sCfg;
        }


        static void ShellExecutePrint(string myDocument)
        {
            Process myProcess = new Process();

            myProcess.StartInfo.FileName = myDocument;
            myProcess.StartInfo.Verb = "Print";
            myProcess.StartInfo.CreateNoWindow = true;
            myProcess.Start();
        }


        static void Main(string[] args)
        {
            string szPrinter = "Zan Image Printer(bw)";
            string szEnddocEvent = "SignalPrintDone";
            string strPath;

            StringBuilder tempstr = new StringBuilder(256);
            string szDefPrinter;
            int dwBufSize = tempstr.Capacity;

            GetDefaultPrinter(tempstr, ref dwBufSize);
            szDefPrinter = tempstr.ToString();

            /*
            change the default printer prior to calling the
            ShellExecutePrint function.
            */
            if (string.Compare(szPrinter, szDefPrinter, true) != 0)
            {
                SetDefaultPrinter(szPrinter);
            }

            strPath = GetZanConfigurationDir(szPrinter);

            if (!strPath.EndsWith("\\")) strPath = string.Concat(strPath, "\\");
            strPath = string.Concat(strPath, "event.ini");
            //enable event notification
            WritePrivateProfileString("event", "enable", "1", strPath);
            //set enddoc event name
            WritePrivateProfileString("event", "enddoc", szEnddocEvent, strPath);

            EventWaitHandle ewh;
            ewh = new EventWaitHandle(false, EventResetMode.AutoReset, szEnddocEvent);

            //The print job status is "sent to printer" when
            //ShellExecutePrint returns.
            ShellExecutePrint("c:\\abc\\1.doc");
            //wait for the EndDoc event to be received,
            //an indication that the submitted print job has indeed completed
            ewh.WaitOne();

            //The print job status is "sent to printer" when
            //ShellExecutePrint returns.
            ShellExecutePrint("c:\\abc\\1.pdf");
            //wait for the EndDoc event to be received,
            //an indication that the submitted print job has indeed completed
            ewh.WaitOne();

            /*set default printer back to original*/
            if (string.Compare(szPrinter, szDefPrinter, true) != 0)
            {
                SetDefaultPrinter(szDefPrinter);
            }

        }

        [DllImport("winspool.drv", CharSet = CharSet.Auto, SetLastError = true)]
        public static extern bool GetDefaultPrinter(StringBuilder pszBuffer,
            ref int size);

        [DllImport("winspool.drv", CharSet = CharSet.Auto, SetLastError = true)]
        public static extern bool SetDefaultPrinter(string Name);

        [DllImport("kernel32.dll")]
        static extern uint GetPrivateProfileString(string lpAppName,
            string lpKeyName, string lpDefault,
            StringBuilder lpReturnedString, int nSize, string lpFileName);

        [DllImport("kernel32.dll")]
        static extern bool WritePrivateProfileString(string lpAppName,
                                                     string lpKeyName,
            string lpString, string lpFileName);

        [DllImport("kernel32.dll")]
        static extern uint GetPrivateProfileInt(string lpAppName,
            string lpKeyName, int nDefault, string lpFileName);


        [DllImport("shell32.dll")]
        static extern bool SHGetFolderPath(int hwndOwner,
        int nFolder, int hToken, int dwFlags, StringBuilder pszPath);
        const int CSIDL_COMMON_DOCUMENTS = 0x002e;
    }
}

Option Explicit

Private Declare Sub Sleep Lib "kernel32" ( _
    ByVal dwMilliseconds As Long)
    
Private Declare Function GetDefaultPrinter Lib "winspool.drv" _
Alias "GetDefaultPrinterA" (ByVal pszBuffer As String, _
pcchBuffer As Long) As Long

Private Declare Function SetDefaultPrinter Lib "winspool.drv" _
Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long

Private Declare Function SHGetFolderPath Lib "shell32" _
Alias "SHGetFolderPathA" _
(ByVal hwndOwner As Long, ByVal nFolder As Long, _
ByVal hToken As Long, ByVal dwFlags As Long, _
ByVal pszPath As String) As Long
   
Private Declare Function GetPrivateProfileInt Lib "kernel32.dll" _
Alias "GetPrivateProfileIntA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal nDefault As Integer, _
ByVal lpFileName As String) As Integer

Private Declare Function WritePrivateProfileString Lib "kernel32.dll" _
Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Integer

Private Declare Function WaitForSingleObject Lib "kernel32.dll" _
(ByVal hHandle As Long, ByVal _
dwMilliseconds As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
   Alias "RegOpenKeyExA" _
  (ByVal hKey As Long, _
   ByVal lpSubKey As String, _
   ByVal ulOptions As Long, _
   ByVal samDesired As Long, _
   phkResult As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" _
Alias "RegQueryValueExA" (ByVal hKey As Long, _
ByVal lpValueName As String, ByVal lpReserved As Long, _
lpType As Long, lpData As Any, lpcbData As Long) As Long


Private Declare Function CreateEvent Lib "kernel32" _
Alias "CreateEventA" (ByVal lpEventAttributes As Long, _
ByVal bManualReset As Long, ByVal bInitialState As _
Long, ByVal lpname As String) As Long

Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long


Private Declare Function GetVersionEx Lib "kernel32" _
   Alias "GetVersionExA" _
  (lpVersionInformation As OSVERSIONINFO) As Long



Private Const HKEY_LOCAL_MACHINE = &H80000002
'Registry action types.
Private Const ERROR_SUCCESS = 0
Private Const STANDARD_RIGHTS_READ As Long = &H20000
Private Const KEY_QUERY_VALUE As Long = &H1
Private Const KEY_ENUMERATE_SUB_KEYS As Long = &H8
Private Const KEY_NOTIFY As Long = &H10
Private Const SYNCHRONIZE As Long = &H100000
Private Const KEY_READ As Long = ((STANDARD_RIGHTS_READ Or _
                                   KEY_QUERY_VALUE Or _
                                   KEY_ENUMERATE_SUB_KEYS Or _
                                   KEY_NOTIFY) And _
                                   (Not SYNCHRONIZE))


'Used CSIDL values.
Private Const CSIDL_APPDATA As Long = &H1A
Private Const CSIDL_PROGRAM_FILES  As Long = &H26
Private Const CSIDL_COMMON_APPDATA As Long = &H23
Private Const CSIDL_COMMON_DOCUMENTS As Long = &H2E

Private Const SHGFP_TYPE_CURRENT = 0
Private Const S_OK As Long = 0
Private Const MAX_PATH = 260
Private Const SW_SHOWNORMAL = 1
Private Const INFINITE = &HFFFF

'Windows-defined type OSVERSIONINFO
Private Type OSVERSIONINFO
  OSVSize         As Long
  dwVerMajor      As Long 'dwVerMajor = 6: Vista or above
  dwVerMinor      As Long
  dwBuildNumber   As Long
                                 
  PlatformID      As Long
  szCSDVersion    As String * 128
                                 
End Type



'Determines whether the given path refers to an existing
'directory
Function DirExists(ByVal DName As String) As Boolean
Dim sDummy As String
On Error Resume Next

If Right(DName, 1) <> "\" Then DName = DName & "\"
sDummy = Dir$(DName & "*.*", vbDirectory)
DirExists = Not (sDummy = "")
End Function


'Searches a path for a file name
Function GetFilePath(FileName As String) As String
    Dim i As Long
    For i = Len(FileName) To 1 Step -1
        Select Case Mid$(FileName, i, 1)
            Case ":"
                GetFilePath = Left$(FileName, i)
                Exit For
            Case "\"
                GetFilePath = Left$(FileName, i - 1)
                Exit For
        End Select
    Next
End Function


'Determines Zan Image Printer installation directory
Private Function GetZanInstallDir() As String

Dim sPath As String
Dim szTmp As String * MAX_PATH
Dim lResult As Long
Dim hKey, dwSize As Long


dwSize = MAX_PATH

'first check to see if the uninstall registry entry exists
If RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
"\Software\Microsoft\Windows\CurrentVersion\Uninstall\zvprt50" _
      , 0&, KEY_READ, hKey) = ERROR_SUCCESS Then
      If RegQueryValueEx(hKey, "UninstallString", _
      0&, 0&, ByVal szTmp, dwSize) = ERROR_SUCCESS Then
      
      sPath = Left$(szTmp, _
            InStr(szTmp, vbNullChar) - 1)

      sPath = GetFilePath(sPath)
      
      If DirExists(sPath) Then
      GetZanInstallDir = sPath
      Exit Function
      End If
      
      End If
      
End If
     
'fallback to the \Program Files\zvprt50 folder:
lResult = SHGetFolderPath(0, _
                   CSIDL_PROGRAM_FILES, _
                   0, _
                   SHGFP_TYPE_CURRENT, _
                   szTmp)
                   
sPath = Left$(szTmp, _
            InStr(szTmp, vbNullChar) - 1)
            
If Right$(sPath, 1) <> "\" Then
    sPath = sPath & "\"
 End If
 sPath = sPath & "zvprt50"
 GetZanInstallDir = sPath
End Function



'Determines Zan Image Printer
'configuration directory for the ini setting files
Private Function GetZanConfigurationDir(szPrinter As String) As String
   Dim sPath As String * MAX_PATH
   Dim lResult As Long
   Dim lPolicy As Long
   Dim csidl As Long
   Dim osv As OSVERSIONINFO
   Dim LRet As Long
   Dim sCfg As String

   'read the OS info
   osv.OSVSize = Len(osv)
   LRet = GetVersionEx(osv)
   
   'read configure.ini from
   'Zan Image Printer installation directory
   sCfg = GetZanInstallDir()

   If Right$(sCfg, 1) <> "\" Then
    sCfg = sCfg & "\"
   End If
   sCfg = sCfg & "configure.ini"

   
   'Read the all users (per-machine) folder policy
   'from configure.ini:
   
   'policy=1: auto detect, if Vista or newer,
   'use CSIDL_COMMON_DOCUMENTS as the
   'all users (per-machine) folder;
   'otherwise, use CSIDL_COMMON_APPDATA
   'policy=2: use CSIDL_COMMON_APPDATA
   'policy=3: use CSIDL_COMMON_DOCUMENTS
   

   lPolicy = GetPrivateProfileInt("allusersfolder", "policy", _
   1, sCfg)
   
   'handle the auto detect policy
   If lPolicy = 1 Then
     'Vista and 2008: dwVerMajor>=6
     If osv.dwVerMajor >= 6 Then
     lPolicy = 3
     Else
     lPolicy = 2
     End If
   End If
   
   If lPolicy = 2 Then
   csidl = CSIDL_COMMON_APPDATA
   Else
   csidl = CSIDL_COMMON_DOCUMENTS
   End If
    
   
   'get the all users (per-machine) folder
   lResult = SHGetFolderPath(0, _
                   csidl, _
                   0, _
                   SHGFP_TYPE_CURRENT, _
                   sPath)
                   
   sCfg = Left$(sPath, _
            InStr(sPath, vbNullChar) - 1)
            
   If Right$(sCfg, 1) <> "\" Then
    sCfg = sCfg & "\"
   End If
   sCfg = sCfg & "zvprt50\" & szPrinter
   
   'if the all users (per-machine) folder exists,
   'then this zan image printer was installed per-machine:
   'all users share the same settings
   If DirExists(sCfg) Then
   'all users will share the same
   'settings for the printer
   GetZanConfigurationDir = sCfg
   Exit Function
   End If
   
   'if the all users (per-machine) folder doesn't exist,
   'assume each user has his own settings
   'for the printer:
   lResult = SHGetFolderPath(0, _
                   CSIDL_APPDATA, _
                   0, _
                   SHGFP_TYPE_CURRENT, _
                   sPath)
                   
   sCfg = Left$(sPath, _
            InStr(sPath, vbNullChar) - 1)
            
   If Right$(sCfg, 1) <> "\" Then
    sCfg = sCfg & "\"
   End If
   sCfg = sCfg & "zvprt50\" & szPrinter
   
   GetZanConfigurationDir = sCfg
End Function




Public Sub printhtml(szPrinter As String, htmlfile As String)
  Const OLECMDID_PRINT = 6
  Const OLECMDEXECOPT_DONTPROMPTUSER = 2
  Const OLECMDEXECOPT_PROMPTUSER = 1
  Dim IE
  Dim szDefPrinter As String, lLen As Long
  Dim sNameBuff As String
  Dim szEnddocEvent, strPath As String
  Dim hEndDoc As Long
  Dim i As Long

  szEnddocEvent = "SignalPrintDone"
 
  hEndDoc = CreateEvent(ByVal 0&, False, False, szEnddocEvent)

  'remember current default printer
  GetDefaultPrinter vbNullChar, lLen
  sNameBuff = Space$(lLen)
  GetDefaultPrinter sNameBuff, lLen
  szDefPrinter = Left$(sNameBuff, _
                  InStr(sNameBuff, vbNullChar) - 1)
                  
  szDefPrinter = LCase(szDefPrinter)
  szPrinter = LCase(szPrinter)
                  
  'change the default printer prior to calling the
  'ExecWB function.
  If szDefPrinter <> Trim$(szPrinter) Then
  SetDefaultPrinter szPrinter
  End If
  
  
  strPath = GetZanConfigurationDir(szPrinter)
  If Right$(strPath, 1) <> "\" Then
    strPath = strPath & "\"
  End If

  strPath = strPath & "event.ini"
 
  'enable event notification
  WritePrivateProfileString "event", "enable", _
   "1", strPath

  'set enddoc event name
  WritePrivateProfileString "event", "enddoc", _
  szEnddocEvent, strPath
  
  'IE automation via Microsoft WebBrowser control
  Set IE = CreateObject("InternetExplorer.Application")
  
  IE.Visible = True
  IE.Navigate htmlfile

  'Wait until URL navigation is done
  Do While IE.ReadyState <> 4
    Sleep 250
  Loop
  
  
  
  'The print job status is "sent to printer" when
  'ExecWB returns
  IE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
  
  'wait for the EndDoc event to be received,
  'an indication that the submitted print job
  'has indeed completed
  i = WaitForSingleObject(hEndDoc, INFINITE)
  
  IE.Quit
  Set IE = Nothing
  
  'set default printer back to original
  If szDefPrinter <> Trim$(szPrinter) Then
  SetDefaultPrinter szDefPrinter
  End If
  CloseHandle (hEndDoc)
End Sub



Public Sub Main()
printhtml "zan image printer(bw)", "C:\htmlfiles\document.htm"
End Sub

unit zanprinter;

interface

uses
Windows, Messages, SysUtils, ShlObj, ShellAPI, SHFolder, ComObj;

function GetDefaultPrinter(prnName:PAnsiChar; var bufSize:DWORD):
BOOL; stdcall; external 'winspool.drv' name 'GetDefaultPrinterA';

function SetDefaultPrinter(prnName:PAnsiChar):
BOOL; stdcall; external 'winspool.drv' name 'SetDefaultPrinterA';

procedure GetZanInstallDir(var APath: String);
procedure printhtml(szPrinter:String; htmlfile:String);
procedure GetZanConfigurationDir(var szPrinter: String; var cfgdir: String);

implementation

//Determines Zan Image Printer installation directory
procedure GetZanInstallDir(var APath: String);
var
  hkeyStartup: HKEY;
  dwSize: DWORD;
begin
  dwSize := MAX_PATH;
  SetLength(APath, MAX_PATH);

  //first check to see if the uninstall registry entry exists
  if RegOpenKeyEx(HKEY_LOCAL_MACHINE,
   '\Software\Microsoft\Windows\CurrentVersion\Uninstall\zvprt50',
   0,
   KEY_READ,
   hkeyStartup) = ERROR_SUCCESS then
   begin

   if RegQueryValueEx(hkeyStartup,
                     'UninstallString', nil, nil,
                      PBYTE(Pchar(APath)),
                      @dwSize) = ERROR_SUCCESS then
   begin
      APath := String (PChar(APath));
      APath := ExtractFilePath(APath);
   end;

   //Close the Key, we won't be needing it anymore
   RegCloseKey(hkeyStartup);

   if DirectoryExists(APath) then Exit;
  end;

  //fallback to the \Program Files\zvprt50 folder:
  SHGetFolderPath(0, CSIDL_PROGRAM_FILES, 0, 0,
                  PChar(APath));

  APath := String (PChar (APath));
  if (APath[Length(APath)] <> '\')
  then APath := APath + '\';

  APath := APath + 'zvprt50';
end;


//Determines Zan Image Printer
//configuration directory for the ini setting files
procedure GetZanConfigurationDir(var szPrinter: String; var cfgdir: String);
var
  osv: TOSVersionInfo;
  lPolicy, csidl: Integer;
begin
  SetLength(cfgdir, MAX_PATH);

  //read the OS info
  FillChar(osv, SizeOf(osv), 0);
  osv.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  GetVersionEx(osv);

  //read configure.ini from
  //Zan Image Printer installation directory
  GetZanInstallDir(cfgdir);
  if (cfgdir[Length(cfgdir)] <> '\') then cfgdir := cfgdir + '\';
  cfgdir := cfgdir + 'configure.ini';

  //read configure.ini from
  //Zan Image Printer installation directory.
  //Read the all users (per-machine) folder policy
  //from configure.ini:

  //policy=1: auto detect, if Vista or newer,
  //use CSIDL_COMMON_DOCUMENTS as the
  //all users (per-machine) folder;
  //otherwise, use CSIDL_COMMON_APPDATA
  //policy=2: use CSIDL_COMMON_APPDATA
  //policy=3: use CSIDL_COMMON_DOCUMENTS
  lPolicy := GetPrivateProfileInt('allusersfolder', 'policy',
   1, PChar(cfgdir));

  //handle the auto detect policy
  if lPolicy = 1 then
  begin
     //Vista and 2008: dwVerMajor>=6
     if osv.dwMajorVersion >= 6 then lPolicy := 3
     else  lPolicy := 2;
  end;

  if lPolicy = 2 then  csidl := CSIDL_COMMON_APPDATA
  else  csidl := CSIDL_COMMON_DOCUMENTS;

  //get the all users (per-machine) folder
  SetLength(cfgdir, MAX_PATH);
  SHGetFolderPath(0, csidl, 0, 0, PChar(cfgdir));
  cfgdir := String (PChar (cfgdir));
  if (cfgdir[Length(cfgdir)] <> '\') then cfgdir := cfgdir + '\';
  cfgdir := cfgdir + 'zvprt50\' + szPrinter;

  //if the all users (per-machine) folder exists,
  //then this zan image printer was installed per-machine:
  //all users share the same settings
  if DirectoryExists(cfgdir) then Exit;

  //if the all users (per-machine) folder doesn't exist,
  //assume each user has his own settings
  //for the printer:
  SHGetFolderPath(0, CSIDL_APPDATA, 0, 0, PChar(cfgdir));
  cfgdir := String (PChar (cfgdir));
  if (cfgdir[Length(cfgdir)] <> '\') then cfgdir := cfgdir + '\';
  cfgdir := cfgdir + 'zvprt50\' + szPrinter;
end;



procedure printhtml(szPrinter:String; htmlfile:String);
const
  OLECMDID_PRINT = $00000006;
  OLECMDEXECOPT_DONTPROMPTUSER = $00000002;
var
  ie: Variant;
  szDefPrinter, szEnddocEvent, strPath: String;
  lBufSize: DWord;
  hEndDoc: THandle;
begin

  //remember current default printer
  SetLength(szDefPrinter, MAX_PATH);
  lBufSize := MAX_PATH;
  GetDefaultPrinter(Pchar(szDefPrinter), lBufSize);
  szDefPrinter := String (PChar(szDefPrinter));
  szDefPrinter := LowerCase(szDefPrinter);
  szPrinter := LowerCase(szPrinter);

  //change the default printer prior to calling the
  //ExecWB function.
  if szDefPrinter <> szPrinter then
    SetDefaultPrinter(PChar(szPrinter));

  szEnddocEvent := 'SignalPrintDone';
  hEndDoc := CreateEvent(nil,False,False,Pchar(szEnddocEvent));

  GetZanConfigurationDir(szPrinter, strPath);
  if (strPath[Length(strPath)] <> '\')
  then  strPath := strPath + '\';
  strPath :=strPath + 'event.ini';

  //enable event notification
  WritePrivateProfileString('event','enable','1',Pchar(strPath));
  //set enddoc event name
  WritePrivateProfileString('event', 'enddoc',
  Pchar(szEnddocEvent), Pchar(strPath));

  //IE automation via Microsoft WebBrowser control
  ie := CreateOleObject('InternetExplorer.Application');

  ie.Visible := True;
  ie.Navigate(htmlfile);
  //Wait until URL navigation is done
  while ie.ReadyState <> 4 do
    sleep(250);

  //The print job status is "sent to printer" when
  //ExecWB returns
  ie.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER);

  //wait for the EndDoc event to be received,
  //an indication that the submitted print
  //job has indeed completed
  WaitForSingleObject(hEndDoc, INFINITE);

  ie.quit;

  //set default printer back to original
  if szDefPrinter <> szPrinter then
  SetDefaultPrinter(pchar(szDefPrinter));

  CloseHandle(hEndDoc);
 end;

end.

#include <windows.h>
#include <winspool.h>
#include <shlobj.h>
#include <shlwapi.h>
#include <shellapi.h>

/*#import statement and smart pointers*/
#import  <shdocvw.dll>

#pragma comment(lib, "shlwapi.lib")


//Determines whether the given path refers to 
//an existing directory
BOOL IsFolderExists(char *lpDirectoryName)
{
	if(0 == strlen(lpDirectoryName))
	{
		return FALSE;
	}

	DWORD dwFileAttr = GetFileAttributes(lpDirectoryName);

	if((dwFileAttr != 0xFFFFFFFF) &&
		(dwFileAttr & FILE_ATTRIBUTE_DIRECTORY))
	{
		return TRUE;
	}
	else
	{
		return FALSE;
	}
}



//Determines Zan Image Printer installation directory
void GetZanInstallDir(char *installfolder)
{
	HKEY hkeyStartup;

	//first check to see if the uninstall registry entry exists
	if(RegOpenKeyEx(HKEY_LOCAL_MACHINE,
		"\\Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\zvprt50",
		0,          
		KEY_READ,  
		&hkeyStartup) == ERROR_SUCCESS)
	{
		DWORD dwSize = MAX_PATH;

		if(RegQueryValueEx(hkeyStartup, 
			"UninstallString", 
			NULL,
			NULL,
			(LPBYTE)installfolder,
			&dwSize) == ERROR_SUCCESS)
		{
			PathRemoveFileSpec(installfolder);
			PathAddBackslash(installfolder);
		}

		/*Close the Key, we won't be needing it anymore*/
		RegCloseKey(hkeyStartup);

		if(IsFolderExists(installfolder))
		{
			return;
		}
	}

	//fallback to the \Program Files\zvprt50 folder:
	SHGetFolderPath(NULL, CSIDL_PROGRAM_FILES, NULL, 0, installfolder);
	PathAddBackslash(installfolder);

	strcat(installfolder,"zvprt50");
}



BOOL IsVistaOrAbove(void)
{
	OSVERSIONINFOEX osvi;
	BOOL bOsVersionInfoEx;

	ZeroMemory(&osvi, sizeof(OSVERSIONINFOEX));

	//Try calling GetVersionEx using the OSVERSIONINFOEX structure.
	//If that fails, try using the OSVERSIONINFO structure.
	osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOEX);
	if(!(bOsVersionInfoEx = GetVersionEx((OSVERSIONINFO*)&osvi)))
	{
		osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
		if(!GetVersionEx((OSVERSIONINFO*)&osvi))
			return FALSE;
	}

	//vista and 2008: 6
	//2003: 5
	//xp: 5
	if(osvi.dwMajorVersion >= 6)
	{
		return TRUE;
	}
	else
	{
		return FALSE;
	}
}



//Determines Zan Image Printer
//configuration directory for the ini setting files
void GetZanConfigurationDir(char *sPrinter, char *sCfg)
{
	DWORD lPolicy;
	DWORD csidl;

	//read configure.ini from
	//Zan Image Printer installation directory
	GetZanInstallDir(sCfg);
	PathAddBackslash(sCfg);
	strcat(sCfg,"configure.ini");

	//Read the all users (per-machine) folder policy
	//from configure.ini:

	//policy=1: auto detect, if Vista or newer,
	//use CSIDL_COMMON_DOCUMENTS as the
	//all users (per-machine) folder;
	//otherwise, use CSIDL_COMMON_APPDATA
	//policy=2: use CSIDL_COMMON_APPDATA
	//policy=3: use CSIDL_COMMON_DOCUMENTS

	lPolicy = GetPrivateProfileInt("allusersfolder", 
		"policy", 1, sCfg);

	//handle the auto detect policy
	if(1 == lPolicy)
	{
		if(IsVistaOrAbove())  lPolicy = 3;
		else lPolicy = 2;
	}


	if(2 == lPolicy)
	{
		csidl = CSIDL_COMMON_APPDATA;
	}
	else
	{
		csidl = CSIDL_COMMON_DOCUMENTS;
	}

	//get the all users (per-machine) folder
	SHGetFolderPath(NULL, csidl, NULL, 0, sCfg);
	PathAddBackslash(sCfg);
	strcat(sCfg, "zvprt50\\");
	strcat(sCfg, sPrinter);
		

	//if the all users (per-machine) folder exists,
	//this zan image printer was installed per-machine: 
	//all users share the same settings
	if(IsFolderExists(sCfg)) return;


	//if the all users (per-machine) folder doesn't exist,
	//assume each user has his own settings
	//for the printer:
	SHGetFolderPath(NULL, CSIDL_APPDATA, NULL, 0, sCfg);
	PathAddBackslash(sCfg);
	strcat(sCfg, "zvprt50\\");
	strcat(sCfg, sPrinter);
}




void printhtml(char *printername, char *htmlfile)
{
	char olddefprinter[MAX_PATH] = "";
	DWORD dwcchBufLen = MAX_PATH;

	/*remember current default printer*/
	GetDefaultPrinter(olddefprinter, &dwcchBufLen);

	/*
	change the default printer prior to calling the
	ExecWB function.
	*/
	if(strlen(olddefprinter) 
		&& strcmpi(olddefprinter, printername)
		)
	{
		/*set default printer*/
		SetDefaultPrinter(printername);
	}

	//enddoc event name
	char* szEnddocEvent = "SignalPrintDone";
	HANDLE hEndDoc;

	hEndDoc=CreateEvent(NULL, FALSE, FALSE, szEnddocEvent);
	if(hEndDoc == NULL)
	{
		return;
	}

	char  strPath[MAX_PATH];

	GetZanConfigurationDir(printername, strPath);
	PathAddBackslash(strPath);
	strcat(strPath,"event.ini");

	//enable event notification
	WritePrivateProfileString("event", "enable", "1",strPath);
	//set enddoc event name
	WritePrivateProfileString("event", "enddoc", 
		szEnddocEvent, strPath);

	/*IE automation via Microsoft WebBrowser control*/
	
	/*CoInitialize(0) creates a single-threaded apartment*/ 
	/*CoInitialize(0);*/
	
	/*Need to define _WIN32_DCOM preprocessor symbol in your project settings*/
	/*CoInitializeEx with the COINIT_MULTITHREADED flag 
	produces a multi-threaded apartment 
	*/
	CoInitializeEx(NULL, COINIT_MULTITHREADED);
	{
		/*IE Automation*/
		SHDocVw::IWebBrowser2Ptr pIE(__uuidof(SHDocVw::InternetExplorer));

		pIE->Visible = false;
		pIE->Navigate(htmlfile);

		/*Wait until URL navigation is done*/
		//120 seconds
        DWORD nTimeout = 120*1000;
		
		READYSTATE result;
		DWORD nFirstTick = GetTickCount();
		
		do
		{
			pIE->get_ReadyState(&result);
			
			if(result != READYSTATE_COMPLETE)
				Sleep(250);
			
			if(nTimeout > 0)
			{
				if((GetTickCount() - nFirstTick) > nTimeout)
				{
				   break;
				}
			}
		}while (result != READYSTATE_COMPLETE);
		

		VARIANT vNull; 
		vNull.vt = VT_EMPTY; 

		//The print job status is "sent to printer" when
		//ExecWB returns.
		HRESULT hr = pIE->ExecWB(OLECMDID_PRINT, 
			OLECMDEXECOPT_DONTPROMPTUSER, &vNull, &vNull); 

		//wait for the EndDoc event to be received,
		//an indication that the submitted print job has indeed completed
		WaitForSingleObject(hEndDoc, INFINITE);

		pIE->Quit();
	}
	CoUninitialize();

	/*set default printer back to original*/
	if(strlen(olddefprinter) 
		&& strcmpi(olddefprinter, printername)
		)
	{
		SetDefaultPrinter(olddefprinter);
	}
	CloseHandle(hEndDoc);
}



int main(int argc, char* argv[])
{

	printhtml("zan image printer(bw)", "c:\\htmlfiles\\document.htm");

	return 0;
}

using namespace System;
using namespace System::Text;
using namespace System::Runtime::InteropServices;
using namespace System::Threading;
using namespace Microsoft::Win32;
using namespace System::IO;
using namespace System::Diagnostics;
using namespace SHDocVw;

// Declare the function that is exported from unmanaged dll:
[DllImport("winspool.drv")]
extern "C" bool _cdecl GetDefaultPrinter(
	 StringBuilder^ pszBuffer, int *size);

[DllImport("winspool.drv")]
extern "C" bool _cdecl SetDefaultPrinter(
	 String^ pszPrinter);

[DllImport("KERNEL32.DLL")]
extern "C" int _cdecl GetPrivateProfileString(
   String^ lpAppName, 
   String^ lpKeyName,
   String^ lpDefault, 
   StringBuilder^ lpReturnedString, 
   int nSize,
   String^ lpFileName);

[DllImport("KERNEL32.DLL")]
extern "C" bool _cdecl WritePrivateProfileString(
   String^ lpAppName, 
   String^ lpKeyName,
   String^ lpString, 
   String^ lpFileName);

[DllImport("KERNEL32.DLL")]
extern "C" int _cdecl GetPrivateProfileInt(
   String^ lpAppName, 
   String^ lpKeyName,
   int nDefault, 
   String^ lpFileName);

[DllImport("shell32.dll")]
extern "C" bool _cdecl SHGetFolderPath(int hwndOwner,
int nFolder, int hToken, int dwFlags, StringBuilder^ pszPath);
const int CSIDL_COMMON_DOCUMENTS = 0x002e;



//Determines Zan Image Printer installation directory
String^ GetZanInstallDir(void)
{
	String^ installfolder = String::Empty;
	RegistryKey ^ rkTest;

	//first check to see if the uninstall registry entry exists
	rkTest = Registry::LocalMachine->OpenSubKey(
		L"\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\zvprt50");
	if(rkTest)
	{
		installfolder = rkTest->GetValue(L"UninstallString")->ToString();
		rkTest->Close();

		if(installfolder->Length)
		{
			installfolder = Path::GetDirectoryName(installfolder);

			DirectoryInfo^ installdir1=gcnew DirectoryInfo(installfolder);
			if(installdir1->Exists)
			{
				return installfolder;
			}
		}
	}

	//fallback to the \Program Files\zvprt50 folder:
	installfolder = Environment::GetFolderPath
		(Environment::SpecialFolder::ProgramFiles);

	if(!installfolder->EndsWith(L"\\")) 
		installfolder = String::Concat(installfolder, L"\\");

	installfolder=String::Concat(installfolder, L"zvprt50");

	return installfolder;
}


//Determines Zan Image Printer
//configuration directory for the ini setting files
String^ GetZanConfigurationDir(String^ szPrinter)
{
	//read the OS info
	OperatingSystem^ os = System::Environment::OSVersion;
	String^ sCfg;
	int lPolicy;
	StringBuilder^ tmpstr = gcnew StringBuilder(256);

	//read configure.ini from
	//Zan Image Printer installation directory
	sCfg = GetZanInstallDir();

	if(!sCfg->EndsWith(L"\\")) 
		sCfg = String::Concat(sCfg, L"\\");

	sCfg = String::Concat(sCfg, L"configure.ini");


	//Read the all users (per-machine) folder policy
	//from configure.ini:

	//policy=1: auto detect, if Vista or newer,
	//use CSIDL_COMMON_DOCUMENTS as the
	//all users (per-machine) folder;
	//otherwise, use CSIDL_COMMON_APPDATA
	//policy=2: use CSIDL_COMMON_APPDATA
	//policy=3: use CSIDL_COMMON_DOCUMENTS

	lPolicy = GetPrivateProfileInt(L"allusersfolder", L"policy",
		1, sCfg);

	//handle the auto detect policy
	if(1 == lPolicy)
	{
		//Vista and 2008: dwVerMajor>=6
		if(os->Version->Major >= 6)
		{
			lPolicy = 3;
		}
		else
		{
			lPolicy = 2;
		}
	}


	//get the all users (per-machine) folder
	//if the all users (per-machine) folder exists,
	//then this zan image printer was installed per-machine: 
	//all users share the same settings
	if(2 == lPolicy)
	{
		//csidl = CSIDL_COMMON_APPDATA;
		sCfg = Environment::GetFolderPath
			(Environment::SpecialFolder::CommonApplicationData);

	}
	else
	{
		//csidl = CSIDL_COMMON_DOCUMENTS;
		SHGetFolderPath(0, CSIDL_COMMON_DOCUMENTS, 0, 0, tmpstr);
		sCfg = tmpstr->ToString();
	}

	if(!sCfg->EndsWith(L"\\")) sCfg = String::Concat(sCfg, L"\\");
	sCfg = String::Concat(sCfg, L"zvprt50\\");
	sCfg = String::Concat(sCfg, szPrinter);

	//all users will share the same
	//settings for the printer
	DirectoryInfo^ tmpdir = gcnew DirectoryInfo(sCfg);
	if(tmpdir->Exists)
	{
		return sCfg;
	}

	//if the all users (per-machine) folder doesn't exist,
	//assume each user has his own settings
	//for the printer:
	sCfg = Environment::GetFolderPath
		(Environment::SpecialFolder::ApplicationData);

	if(!sCfg->EndsWith(L"\\")) sCfg = String::Concat(sCfg, L"\\");
	sCfg = String::Concat(sCfg, L"zvprt50\\");
	sCfg = String::Concat(sCfg, szPrinter);

	return sCfg;
}





void printhtml(String^ szPrinter, String^ htmlfile)
{
	StringBuilder^ tmpstr = gcnew StringBuilder(256);
	String^ szDefPrinter;
	int dwBufSize = tmpstr->Capacity;

	/*
	change the default printer prior to calling the
	ExecWB function.
	*/
	GetDefaultPrinter(tmpstr, &dwBufSize);
	szDefPrinter = tmpstr->ToString();

	if(String::Compare(szPrinter, szDefPrinter, true) != 0)
	{
		SetDefaultPrinter(szPrinter);
	}

	//enddoc event name
	String^ szEnddocEvent = L"SignalPrintDone";
	String^ strPath;

	strPath = GetZanConfigurationDir(szPrinter);

	if(!strPath->EndsWith(L"\\")) strPath=String::Concat(strPath, L"\\");
	strPath = String::Concat(strPath, L"event.ini");

	//enable event notification
	WritePrivateProfileString(L"event", L"enable", L"1", strPath);
	//set enddoc event name
	WritePrivateProfileString(L"event",L"enddoc",szEnddocEvent, strPath);

	EventWaitHandle^ ewh;
	ewh=gcnew EventWaitHandle(false,EventResetMode::AutoReset,szEnddocEvent);

	InternetExplorer^ explorer = gcnew InternetExplorerClass;
	IWebBrowserApp^ webBrowser = explorer;
	Object^ noValue = System::Reflection::Missing::Value;

	webBrowser->Visible = true;
	webBrowser->Navigate(htmlfile, noValue, noValue, noValue, noValue);

	/*Wait until URL navigation is done*/
	while(webBrowser->Busy)
	{
		Thread::Sleep(250);
	}

	//The print job status is "sent to printer" when
	//ExecWB returns.
	explorer->ExecWB(SHDocVw::OLECMDID::OLECMDID_PRINT,
		SHDocVw::OLECMDEXECOPT::OLECMDEXECOPT_DONTPROMPTUSER, 
		noValue,
		noValue);

	//wait for the EndDoc event to be received,
	//an indication that the submitted print job has 
	//indeed completed
	ewh->WaitOne();

	explorer->Quit();

	/*set default printer back to original*/
	if(String::Compare(szPrinter, szDefPrinter, true) != 0)
	{
		SetDefaultPrinter(szDefPrinter);
	}
}




int main(array ^args)
{
	printhtml(L"zan image printer(bw)", L"c:\\htmlfiles\\document.htm");

	return 0;
}

Imports System
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.IO
Imports System.Diagnostics
Imports System.Threading
Imports Microsoft.Win32
Imports SHDocVw


Module Module1
    Declare Function GetDefaultPrinter Lib "winspool.drv" Alias _
    "GetDefaultPrinterA" (ByVal pszBuffer As System.Text.StringBuilder, _
    ByRef size As Int32) As Boolean

    Declare Function SetDefaultPrinter Lib "winspool.drv" Alias _
    "SetDefaultPrinterA" (ByVal pszPrinter As String) As Boolean

    Private Declare Function GetPrivateProfileString Lib "kernel32" _
         Alias "GetPrivateProfileStringW" _
        (ByVal lpAppName As String, _
         ByVal lpKeyName As String, _
         ByVal lpDefault As String, _
         ByVal lpReturnedString As StringBuilder, _
         ByVal nSize As Integer, _
         ByVal lpFileName As String) As Integer

    Private Declare Function GetPrivateProfileInt Lib "kernel32.dll" _
            Alias "GetPrivateProfileIntA" _
           (ByVal lpApplicationName _
            As String, ByVal lpKeyName As String, ByVal nDefault As _
            Integer, ByVal lpFileName As String) As Integer

    Private Declare Function WritePrivateProfileString Lib "kernel32.dll" _
            Alias "WritePrivateProfileStringA" _
           (ByVal lpAppName As String, _
            ByVal lpKeyName As String, _
            ByVal lpString As String, _
            ByVal lpFileName As String) As Boolean

    Private Declare Function SHGetFolderPath Lib "shell32.dll" _
    Alias "SHGetFolderPathA" _
    (ByVal hwndOwner As Integer, _
    ByVal nFolder As Integer, _
    ByVal hToken As Integer, _
    ByVal dwFlags As Integer, _
    ByVal pszPath As StringBuilder) As Integer

    'All Users\Documents 
    Private Const CSIDL_COMMON_DOCUMENTS = &H2E


    'Determines Zan Image Printer installation directory
    Function GetZanInstallDir() As String
        Dim installfolder As String
        Dim rkTest As RegistryKey

        'first check to see if the uninstall registry entry exists
        rkTest = Registry.LocalMachine.OpenSubKey _
 ("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\zvprt50")

        If Not (rkTest Is Nothing) Then
            installfolder = rkTest.GetValue _
              ("UninstallString").ToString()
            rkTest.Close()
            If (installfolder.Length > 0) Then
                installfolder = Path.GetDirectoryName(installfolder)
                Dim installdir1 As DirectoryInfo = _
                   New DirectoryInfo(installfolder)

                If installdir1.Exists Then
                    Return installfolder
                End If
            End If
        End If
        'fallback to the \Program Files\zvprt50 folder:
        installfolder = Environment.GetFolderPath _
(Environment.SpecialFolder.ProgramFiles)

        If Not installfolder.EndsWith("\") Then
            installfolder = String.Concat(installfolder, "\")
        End If

        installfolder = String.Concat(installfolder, "zvprt50")
        Return installfolder
    End Function


    'Determines Zan Image Printer
    'configuration directory for the ini setting files
    Function GetZanConfigurationDir(ByVal szPrinter As String) As String
        'read the OS info
        Dim os As OperatingSystem
        Dim sCfg As String
        Dim lPolicy As Integer
        Dim tmpstr As StringBuilder

        tmpstr = New StringBuilder(256)

        os = System.Environment.OSVersion

        'read configure.ini from
        'Zan Image Printer installation directory
        sCfg = GetZanInstallDir()

        If Not sCfg.EndsWith("\") Then
            sCfg = String.Concat(sCfg, "\")
        End If

        sCfg = String.Concat(sCfg, "configure.ini")


        'Read the all users (per-machine) folder policy
        'from configure.ini:

        'policy=1: auto detect, if Vista or newer,
        'use CSIDL_COMMON_DOCUMENTS as the
        'all users (per-machine) folder;
        'otherwise, use CSIDL_COMMON_APPDATA
        'policy=2: use CSIDL_COMMON_APPDATA
        'policy=3: use CSIDL_COMMON_DOCUMENTS

        lPolicy = GetPrivateProfileInt("allusersfolder", _
            "policy", 1, sCfg)

        'Vista and 2008: dwVerMajor>=6
        If lPolicy = 1 Then
            If os.Version.Major >= 6 Then
                lPolicy = 3
            Else
                lPolicy = 2
            End If
        End If


        'get the all users (per-machine) folder
        'if the all users (per-machine) folder exists,
        'then this zan image printer was installed per-machine: 
        'all users share the same settings
        If lPolicy = 2 Then
            'csidl = CSIDL_COMMON_APPDATA;
            sCfg = Environment.GetFolderPath( _
            Environment.SpecialFolder.CommonApplicationData)
        Else
            'csidl = CSIDL_COMMON_DOCUMENTS;
            SHGetFolderPath(0, CSIDL_COMMON_DOCUMENTS, 0, 0, tmpstr)
            sCfg = tmpstr.ToString()
        End If


        If Not sCfg.EndsWith("\") Then
            sCfg = String.Concat(sCfg, "\")
        End If
        sCfg = String.Concat(sCfg, "zvprt50\")
        sCfg = String.Concat(sCfg, szPrinter)

        'all users will share the same
        'settings for the printer
        Dim tmpdir As DirectoryInfo = _
                   New DirectoryInfo(sCfg)

        If tmpdir.Exists Then
            Return sCfg
        End If

        'if the all users (per-machine) folder doesn't exist,
        'assume each user has his own settings
        'for the printer:
        sCfg = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)

        If Not sCfg.EndsWith("\") Then
            sCfg = String.Concat(sCfg, "\")
        End If
        sCfg = String.Concat(sCfg, "zvprt50\")
        sCfg = String.Concat(sCfg, szPrinter)

        Return sCfg
    End Function




    Sub printhtml(ByVal szPrinter As String, ByVal htmlfile As String)
        Dim szEnddocEvent As String = "SignalPrintDone"
        Dim strPath As String
        Dim tmpstr As StringBuilder

        tmpstr = New StringBuilder(256)

        Dim szDefPrinter As String
        Dim dwBufSize As Integer
        dwBufSize = tmpstr.Capacity

        GetDefaultPrinter(tmpstr, dwBufSize)
        szDefPrinter = tmpstr.ToString()

        'change the default printer prior to calling the
        'ExecWB function.
        If String.Compare(szPrinter, szDefPrinter, True) <> 0 Then
            SetDefaultPrinter(szPrinter)
        End If

        strPath = GetZanConfigurationDir(szPrinter)

        If Not strPath.EndsWith("\") Then
            strPath = String.Concat(strPath, "\")
        End If

        strPath = String.Concat(strPath, "event.ini")

        'enable event notification
        WritePrivateProfileString("event", "enable", "1", strPath)
        'set enddoc event name
        WritePrivateProfileString("event", "enddoc", _
        szEnddocEvent, strPath)

        Dim ewh As EventWaitHandle
        ewh = New EventWaitHandle(False, EventResetMode.AutoReset, _
        szEnddocEvent)

        Dim explorer As InternetExplorer = New InternetExplorerClass()
        Dim WebBrowser As IWebBrowserApp = CType(explorer, IWebBrowserApp)
        Dim noValue As Object = Nothing

        WebBrowser.Visible = True
        WebBrowser.Navigate(htmlfile, noValue, noValue, noValue, noValue)

        'Wait until URL navigation is done
        While WebBrowser.Busy
            Thread.Sleep(250)
        End While


        'printing without print dialog
        'The print job status is "sent to printer" when
        'ExecWB returns.
        explorer.ExecWB(SHDocVw.OLECMDID.OLECMDID_PRINT, _
                        SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER, _
                        noValue, noValue)

        'wait for the EndDoc event to be received,
        'an indication that the submitted print job has indeed completed
        ewh.WaitOne()

        explorer.Quit()

        'set default printer back to original
        If String.Compare(szPrinter, szDefPrinter, True) <> 0 Then
            SetDefaultPrinter(szDefPrinter)
        End If
    End Sub


    Sub Main()
        printhtml("zan image printer(bw)", "c:\htmlfiles\document.htm")
    End Sub

End Module

using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;
using System.Threading;
using System.IO;
using Microsoft.Win32;
using SHDocVw;


namespace printhtml_csharp
{
    class Program
    {
        //Determines Zan Image Printer installation directory
        static string GetZanInstallDir()
        {
            string installfolder = string.Empty;
            RegistryKey rkTest;

            //first check to see if the uninstall registry entry exists
            rkTest = Registry.LocalMachine.OpenSubKey(
            "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\zvprt50");

            if (rkTest != null)
            {
                installfolder = rkTest.GetValue("UninstallString").ToString();
                rkTest.Close();

                if (installfolder.Length > 0)
                {
                    installfolder = Path.GetDirectoryName(installfolder);

                    DirectoryInfo installdir1 = new DirectoryInfo(installfolder);
                    if (installdir1.Exists)
                    {
                        return installfolder;
                    }
                }
            }

            //fallback to the \Program Files\zvprt50 folder:
            installfolder = Environment.GetFolderPath
                (Environment.SpecialFolder.ProgramFiles);

            if (!installfolder.EndsWith("\\"))
                installfolder = string.Concat(installfolder, "\\");

            installfolder = string.Concat(installfolder, "zvprt50");

            return installfolder;
        }



        //Determines Zan Image Printer
        //configuration directory for the ini setting files
        static string GetZanConfigurationDir(string szPrinter)
        {
            //read the OS info
            OperatingSystem os = System.Environment.OSVersion;
            string sCfg;
            uint lPolicy;
            StringBuilder tmpstr = new StringBuilder(256);

            //read configure.ini from
            //Zan Image Printer installation directory
            sCfg = GetZanInstallDir();

            if (!sCfg.EndsWith("\\"))
                sCfg = string.Concat(sCfg, "\\");

            sCfg = string.Concat(sCfg, "configure.ini");


            //Read the all users (per-machine) folder policy
            //from configure.ini:

            //policy=1: auto detect, if Vista or newer,
            //use CSIDL_COMMON_DOCUMENTS as the
            //all users (per-machine) folder;
            //otherwise, use CSIDL_COMMON_APPDATA
            //policy=2: use CSIDL_COMMON_APPDATA
            //policy=3: use CSIDL_COMMON_DOCUMENTS

            lPolicy = GetPrivateProfileInt("allusersfolder", "policy",
                1, sCfg);

            //handle the auto detect policy
            if (1 == lPolicy)
            {
                //Vista and 2008: dwVerMajor>=6
                if (os.Version.Major >= 6)
                {
                    lPolicy = 3;
                }
                else
                {
                    lPolicy = 2;
                }
            }


            //get the all users (per-machine) folder
            //if the all users (per-machine) folder exists,
            //then this zan image printer was installed per-machine: 
            //all users share the same settings
            if (2 == lPolicy)
            {
                //csidl = CSIDL_COMMON_APPDATA;
                sCfg = Environment.GetFolderPath
                    (Environment.SpecialFolder.CommonApplicationData);

            }
            else
            {
                //csidl = CSIDL_COMMON_DOCUMENTS;
                SHGetFolderPath(0, CSIDL_COMMON_DOCUMENTS, 0, 0, tmpstr);
                sCfg = tmpstr.ToString();
            }

            if (!sCfg.EndsWith("\\")) sCfg = string.Concat(sCfg, "\\");
            sCfg = string.Concat(sCfg, "zvprt50\\");
            sCfg = string.Concat(sCfg, szPrinter);

            //all users will share the same
            //settings for the printer
            DirectoryInfo tmpdir = new DirectoryInfo(sCfg);
            if (tmpdir.Exists)
            {
                return sCfg;
            }

            //if the all users (per-machine) folder doesn't exist,
            //assume each user has his own settings
            //for the printer:
            sCfg = Environment.GetFolderPath
                (Environment.SpecialFolder.ApplicationData);

            if (!sCfg.EndsWith("\\")) sCfg = string.Concat(sCfg, "\\");
            sCfg = string.Concat(sCfg, "zvprt50\\");
            sCfg = string.Concat(sCfg, szPrinter);

            return sCfg;
        }


        static void printhtml(string szPrinter, string htmlfile)
        {
            StringBuilder tempstr = new StringBuilder(256);
            string szDefPrinter;
            int dwBufSize = tempstr.Capacity;

            /*
            change the default printer prior to calling the
            ExecWB function.
            */
            GetDefaultPrinter(tempstr, ref dwBufSize);
            szDefPrinter = tempstr.ToString();

            if (string.Compare(szPrinter, szDefPrinter, true) != 0)
            {
                SetDefaultPrinter(szPrinter);
            }

            //enddoc event name
            string szEnddocEvent = "SignalPrintDone";
            string strPath;


            strPath = GetZanConfigurationDir(szPrinter);

            if (!strPath.EndsWith("\\"))
                strPath = string.Concat(strPath, "\\");

            strPath = string.Concat(strPath,"event.ini");

            //enable event notification
            WritePrivateProfileString("event", "enable", "1", strPath);
            //set enddoc event name
            WritePrivateProfileString("event", "enddoc", szEnddocEvent, strPath);

            EventWaitHandle ewh;
            ewh = new EventWaitHandle(false, EventResetMode.AutoReset, szEnddocEvent);

            InternetExplorer explorer = new InternetExplorerClass();
            IWebBrowserApp webBrowser = explorer;
            Object noValue = null;

            webBrowser.Visible = true;
            webBrowser.Navigate(htmlfile, ref noValue,
              ref noValue, ref noValue, ref noValue);

            /*Wait until URL navigation is done*/
            while (webBrowser.Busy)
            {
                Thread.Sleep(250);
            }

            
            //printing without print dialog
            //The print job status is "sent to printer" when
            //ExecWB returns.
            explorer.ExecWB(SHDocVw.OLECMDID.OLECMDID_PRINT,
              SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER,
              ref noValue,
              ref noValue);

            //wait for the EndDoc event to be received,
            //an indication that the submitted print job has indeed completed
            ewh.WaitOne();
            explorer.Quit();

            /*set default printer back to original*/
            if (string.Compare(szPrinter, szDefPrinter, true) != 0)
            {
                SetDefaultPrinter(szDefPrinter);
            }
        }


        static void Main(string[] args)
        {
            printhtml("zan image printer(bw)", "c:\\htmlfiles\\document.htm");
        }

        [DllImport("winspool.drv", CharSet = CharSet.Auto, SetLastError = true)]
        public static extern bool GetDefaultPrinter(StringBuilder pszBuffer,
        ref int size);

        [DllImport("winspool.drv", CharSet = CharSet.Auto, SetLastError = true)]
        public static extern bool SetDefaultPrinter(string Name);

        [DllImport("kernel32.dll")]
        static extern uint GetPrivateProfileString(string lpAppName,
            string lpKeyName, string lpDefault,
            StringBuilder lpReturnedString, int nSize, string lpFileName);

        [DllImport("kernel32.dll")]
        static extern bool WritePrivateProfileString(string lpAppName,
                                                     string lpKeyName,
            string lpString, string lpFileName);

        [DllImport("kernel32.dll")]
        static extern uint GetPrivateProfileInt(string lpAppName,
            string lpKeyName, int nDefault, string lpFileName);


        [DllImport("shell32.dll")]
        static extern bool SHGetFolderPath(int hwndOwner,
        int nFolder, int hToken, int dwFlags, StringBuilder pszPath);
        const int CSIDL_COMMON_DOCUMENTS = 0x002e;

    }
}

Option Explicit

Private Declare Sub Sleep Lib "kernel32" ( _
    ByVal dwMilliseconds As Long)


Public Sub printdoc(szPrinter As String, docfile As String)
Dim wdApp As Object
Dim oldactiveprinter As String

'Word Automation
Set wdApp = CreateObject("Word.Application")
'show Word window
wdApp.Visible = True
wdApp.Documents.Open (docfile)

'remember current active printer
oldactiveprinter = wdApp.ActivePrinter

oldactiveprinter = LCase(oldactiveprinter)
szPrinter = LCase(szPrinter)

If oldactiveprinter <> Trim$(szPrinter) Then
wdApp.ActivePrinter = szPrinter
End If

wdApp.ActiveDocument.PrintOut

'Make sure all of the documents are gone from the queue
Do While wdApp.BackgroundPrintingStatus > 0
    Sleep 100
  Loop
  
'set active printer back to original
If oldactiveprinter <> Trim$(szPrinter) Then
wdApp.ActivePrinter = oldactiveprinter
End If

wdApp.ActiveDocument.Close (False)

'Close instance of MS Word
wdApp.Quit

Set wdApp = Nothing
End Sub

Public Sub Main()
printdoc "zan image printer(bw)", "c:\abc\1.doc"
End Sub

uses Windows, ComObj;
procedure printdoc(printername:String; docfile:String);
implementation

procedure printdoc(printername:String; docfile:String);
var
  wdApp: Variant;
  oldactiveprinter: String;
  begin

  //Word automation
  //start an instance of MS Word
  wdApp := CreateOleObject('Word.Application');
  //show Word window
  wdApp.Visible := True;
  //remember current active printer
  oldactiveprinter := wdApp.ActivePrinter;
  wdApp.ActivePrinter := printername;
  wdApp.Documents.Open(docfile);

  wdApp.ActiveDocument.PrintOut;

  //Make sure all of the documents are gone from the queue
  while(wdApp.BackgroundPrintingStatus > 0) do
   Sleep(250);

  //set active printer back to original
  if oldactiveprinter <> printername then
  wdApp.ActivePrinter := oldactiveprinter;

  wdApp.ActiveDocument.Close(False);
  wdApp.quit(False);
 end;

printdoc('zan image printer(bw)', 'c:\abc\1.doc');

#include <windows.h>
#include <winspool.h>
#include <ole2.h>

#pragma warning(disable:4146)

//#import statement and smart pointers:
//The #import statement is different for each version of the 
//Microsoft Word Object Library, change the path to your own Word 
//type library if needed
#import "c:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL" 
#import "c:\Program Files\\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.olb" 
#import "c:\Program Files\Microsoft Office\Office10\MSWORD.olb" \
        rename("ExitWindows","ExitWindowsEx")

void printdoc(char *printername, char *docfile)
{
	CoInitialize(NULL);
	CLSID clsid;
	
	/*Word automation*/
	CLSIDFromProgID(L"Word.Application", &clsid); 

	Word::_ApplicationPtr pApp;
	
	pApp.CreateInstance (clsid, NULL);

	/*show Word window*/
	pApp->PutVisible(VARIANT_TRUE);
	
	/*remember current active printer*/
	BSTR org_activeprinter;
	pApp->get_ActivePrinter(&org_activeprinter);

	_variant_t bstrFileName(docfile);
	pApp->GetDocuments()->Open(&bstrFileName);

	pApp->put_ActivePrinter(_bstr_t(printername));
	
	Word::_DocumentPtr pWordDocument = pApp->GetActiveDocument();
	//print the document
	pWordDocument->PrintOut();

	// Make sure all of the documents are gone from the queue
	while(pApp->BackgroundPrintingStatus > 0)
	{
		Sleep(250);
	}
	
	/*set active printer back to original*/
	pApp->put_ActivePrinter(org_activeprinter);

	SysFreeString(org_activeprinter);

	_variant_t v((long)Word::wdDoNotSaveChanges);

	pApp->Quit(&v);
	
	CoUninitialize();
}

printdoc("zan image printer(bw)", "c:\\abc\\1.doc");

using namespace System;
using namespace System::Text;
using namespace System::Runtime::InteropServices;
using namespace System::Threading;

void printdoc(String^ szPrinter, String^ docfile)
{
	Word::ApplicationClass^ ac = gcnew Word::ApplicationClass();
	Word::Application^ app = ac->Application;
	String^ szActiveprinter;
	Object^ missing = System::Reflection::Missing::Value;

	szActiveprinter = app->ActivePrinter;
	
	//remember current active printer
	if(String::Compare(szPrinter, szActiveprinter, true) != 0)
	{
		app->ActivePrinter = szPrinter;
	}
	app->Visible = true;
	
	Word::Document^ aDoc = gcnew Word::Document();
	aDoc = app->Documents->Add(docfile, missing, missing, missing);
	
	app->PrintOut(missing, missing, missing, missing, missing, missing,
		missing, missing, missing, missing, missing, missing,
		missing, missing, missing, missing, missing, missing, missing);

	// Make sure all of the documents are gone from the queue
	while(app->BackgroundPrintingStatus > 0)
	{
		Thread::Sleep(250);
	}

	//set active printer back to original
	if(String::Compare(szPrinter, szActiveprinter, true) != 0)
	{
		app->ActivePrinter = szActiveprinter;
	 }
	 ac->Quit(missing, missing, missing);
}

printdoc(L"zan image printer(bw)", L"c:\\abc\\1.doc");

Imports System.Runtime.InteropServices
Imports System.Text
Imports System
Imports System.Threading

Module Module1
 Sub printdoc(ByVal szPrinter As String, ByVal docfile As Object)
     Dim ac As Word.ApplicationClass = New Word.ApplicationClass()
     Dim app As Word.Application = ac.Application
     Dim szActiveprinter As String

     szActiveprinter = app.ActivePrinter

     'remember current active printer
     If String.Compare(szPrinter, szActiveprinter, True) <> 0 Then
         app.ActivePrinter = szPrinter
     End If

     app.Visible = True

     Dim aDoc As Word.Document = New Word.Document()
     Dim missing As Object
     missing = System.Reflection.Missing.Value

     aDoc = app.Documents.Open(docfile, _
                                missing, missing, missing, _
                                missing, missing, missing, _
                                missing, missing, missing, _
                                missing, missing)

     app.PrintOut(missing, missing, missing, missing, missing, missing, _
                   missing, missing, missing, missing, missing, missing, _
                   missing, missing, missing, missing, missing, missing, _
                   missing)

     ' Make sure all of the documents are gone from the queue
     While app.BackgroundPrintingStatus > 0
         Thread.Sleep(250)
     End While

     'set active printer back to original
     'remember current active printer
     If String.Compare(szPrinter, szActiveprinter, True) <> 0 Then
         app.ActivePrinter = szActiveprinter
     End If
         
     ac.Quit(missing, missing, missing)
 End Sub

 Sub Main()
     printdoc("zan image printer(bw)", "c:\abc\1.doc")
 End Sub
End Module

using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;
using System.Threading;

class Program
{
 static void printdoc(string szPrinter, object docfile)
 {
     Word.ApplicationClass ac = new Word.ApplicationClass();
     Word.Application app = ac.Application;
     string szActiveprinter;

     szActiveprinter = app.ActivePrinter;

     //remember current active printer
     if (String.Compare(szPrinter, szActiveprinter, true) != 0)
     {
         app.ActivePrinter = szPrinter;
     }
     app.Visible = true;

     Word.Document aDoc = new Word.Document();
     object missing = System.Reflection.Missing.Value;


     aDoc = app.Documents.Open(ref docfile,
                               ref missing, ref missing, 
                               ref missing, ref missing, 
                               ref missing, ref missing,
                               ref missing, ref missing, 
                               ref missing, ref missing, 
                               ref missing);
                               

     app.PrintOut(ref missing, ref missing, ref missing, 
                  ref missing, ref missing, ref missing,
                  ref missing, ref missing, ref missing, 
                  ref missing, ref missing, ref missing,
                  ref missing, ref missing, ref missing, 
                  ref missing, ref missing, ref missing, 
                  ref missing);

     // Make sure all of the documents are gone from the queue
     while (app.BackgroundPrintingStatus > 0)
     {
         Thread.Sleep(250);
     }

     //set active printer back to original
     if (String.Compare(szPrinter,szActiveprinter,true) != 0)
     {
         app.ActivePrinter = szActiveprinter;
     }
     ac.Quit(ref missing, ref missing, ref missing);
 }


 static void Main(string[] args)
 {
     printdoc("zan image printer(bw)", "c:\\abc\\1.doc");
 }
}

Option Explicit

Private Declare Sub Sleep Lib "kernel32" ( _
    ByVal dwMilliseconds As Long)

'print to the current default printer
Public Sub printxls(xlsfile As String)
Dim ExcelApp As Object
Dim ObjSheet As Object

'Excel Automation
Set ExcelApp = CreateObject("excel.Application")
ExcelApp.Visible = True
ExcelApp.Workbooks.Open (xlsfile)

'print all sheets in the workbook
ExcelApp.ActiveWorkbook.PrintOut

'print the first sheet, sheet index starts from 1
Set ObjSheet = ExcelApp.ActiveWorkbook.WorkSheets(1)
'ObjSheet.PrintOut

'close instance of MS Excel
ExcelApp.ActiveWorkbook.Close (False)
ExcelApp.Quit
Set ExcelApp = Nothing
End Sub

Public Sub Main()
printxls "c:\abc\1.xls"
End Sub

uses Windows, ComObj;
procedure printxls(xlsfile:String);
implementation

procedure printxls(xlsfile:String);
var
  ExcelApp: Variant;
  ObjSheet: Variant;
  begin

  //Excel automation
  //start an instance of MS Excel
  ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.Visible := True;
  ExcelApp.Workbooks.Open(xlsfile);

  //print all sheets in the workbook
  ExcelApp.ActiveWorkbook.PrintOut;

  //print the first sheet, sheet index starts from 1
  ObjSheet := ExcelApp.ActiveWorkBook.WorkSheets [1];
  //ObjSheet.PrintOut;

  ExcelApp.ActiveWorkbook.Close(False);
  //Quit Excel
  ExcelApp.Quit;
 end;

printxls('c:\abc\1.xls');

#include <windows.h>
#include <ole2.h>

#pragma warning(disable:4146)

//#import statement and smart pointers below:
//The #import statement is different for each version of the 
//Microsoft Excel Object Library, change the path to your own Excel 
//type library if needed
#import "c:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL" 
#import "c:\Program Files\\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.olb" 
#import "C:\Program Files\Microsoft Office\Office10\EXCEL.EXE" \
        rename("DialogBox","_DialogBox") \
        rename("RGB","_RGB") \
        exclude("IFont","IPicture")


/*print to the current default printer*/
void printxls(char *xlsfile)
{
   Excel::_ApplicationPtr ExcelApp; 
   Excel::WorkbooksPtr ExcelWorkBooks; 
   Excel::_WorkbookPtr ExcelWorkBook; 

   /*Excel automation*/
   CoInitialize(NULL); 
   if(ExcelApp.CreateInstance(__uuidof(Excel::Application)) == S_OK) 
   { 
    ExcelApp->PutVisible(0, VARIANT_TRUE);
    ExcelWorkBooks = ExcelApp->GetWorkbooks(); 
    
    ExcelWorkBook = ExcelWorkBooks->Open(_bstr_t(xlsfile)); 

    /*print all sheets in the workbook*/
    ExcelWorkBook->PrintOut();
    
    /*print the selected sheet*/
    Excel::WorksheetsPtr pSheets = ExcelApp->GetSheets(); 
    /*Get first sheet*/
    VARIANT vt; 
    VariantInit(&vt); 
    vt.vt = VT_I2; 
    /*sheet index starts from 1*/
    vt.iVal = (short)1; 
    Excel::_WorksheetPtr worksheet = pSheets->GetItem(vt);
    /*worksheet->PrintOut();*/

    ExcelWorkBook->Close(); 
    ExcelApp->Quit();
   } 
   CoUninitialize(); 
}

printxls("C:\\abc\\1.xls");

using namespace System;
using namespace System::Text;
using namespace System::Runtime::InteropServices;
using namespace System::Threading;

/*print to the current default printer*/
void printxls(String^ xlsfile)
{
  /*Excel automation*/
  Excel::ApplicationClass^ ac = gcnew Excel::ApplicationClass();
  Excel::Application^ app = ac->Application;
  Excel::Workbooks^ workbooks = app->Workbooks;
  Object^ missing = System::Reflection::Missing::Value;

  Excel::Workbook^ workbook = workbooks->Open(xlsfile, 
  missing, missing, missing, missing,
  missing, missing, missing, missing,
  missing, missing, missing, missing);

  app->Visible = true;
  /*print all sheets in the workbook*/
  //The print job status is "sent to printer" when
  //PrintOut returns.
  workbook->PrintOut(missing, missing, missing, missing,
  missing, missing, missing, missing);
  
  workbook->Close(missing, missing, missing);
  app->Quit();
}
printxls(L"C:\\abc\\1.xls");

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Runtime.InteropServices
Imports System.Threading

Module Module1
 'print to the current default printer
 Sub printxls(ByVal xlsfile As String)
     'Excel automation
     Dim ac As Excel.ApplicationClass = New Excel.ApplicationClass()
     Dim app As Excel.Application = ac.Application
     Dim workbooks As Excel.Workbooks = app.Workbooks
     Dim missing As Object = System.Reflection.Missing.Value

     Dim workbook As Excel.Workbook = workbooks.Open(xlsfile, _
                    missing, missing, missing, missing, _
                    missing, missing, missing, missing, _
                    missing, missing, missing, missing)

     app.Visible = True
     'print all sheets in the workbook
     'The print job status is "sent to printer" when
     'PrintOut returns.
     workbook.PrintOut(missing, missing, missing, missing, _
                       missing, missing, missing, missing)

     workbook.Close(missing, missing, missing)

     app.Quit()
 End Sub

 Sub Main()
     printxls("C:\abc\1.xls")
 End Sub
End Module

using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;
using System.Threading;
class Program
{
 /*print to the current default printer*/
 static void printxls(string xlsfile)
 {
     /*Excel automation*/
     Excel.ApplicationClass ac = new Excel.ApplicationClass();
     Excel.Application app = ac.Application;
     app.Visible = true;
     Excel.Workbooks workbooks = app.Workbooks;
     Object missing = System.Reflection.Missing.Value;

     Excel.Workbook workbook = 
         workbooks.Open(xlsfile, 
         missing, missing, missing, missing,
         missing, missing, missing, missing,
         missing, missing, missing, missing);

     /*print all sheets in the workbook*/
     //The print job status is "sent to printer" when
     //PrintOut returns.
     workbook.PrintOut(missing, missing, missing, missing,
                       missing, missing, missing, missing);

     workbook.Close(missing, missing, missing);

     app.Quit();
 }

 static void Main(string[] args)
 {
     printxls("C:\\abc\\1.xls");
 }
}

Option Explicit
Private Declare Function GetDefaultPrinter Lib "winspool.drv" Alias _
"GetDefaultPrinterA" (ByVal pszBuffer As String, pcchBuffer As Long) As Long

Private Declare Function SetDefaultPrinter Lib "winspool.drv" _
   Alias "SetDefaultPrinterA" _
  (ByVal pszPrinter As String) As Long


Public Sub Main()
Dim sPrinterName As String
Dim sNameBuff As String, lLen As Long

GetDefaultPrinter vbNullChar, lLen
sNameBuff = Space$(lLen)
GetDefaultPrinter sNameBuff, lLen

sPrinterName = Left$(sNameBuff, _
            InStr(sNameBuff, vbNullChar) - 1)

SetDefaultPrinter "zan image printer(bw)"

End Sub

uses
Windows, Messages, SysUtils, ShlObj, ShellAPI, SHFolder, ComObj;

function GetDefaultPrinter(prnName:PAnsiChar; var bufSize:DWORD):
BOOL; stdcall; external 'winspool.drv' name 'GetDefaultPrinterA';

function SetDefaultPrinter(prnName:PAnsiChar):
BOOL; stdcall; external 'winspool.drv' name 'SetDefaultPrinterA';
procedure test_defprinter();

implementation

procedure test_defprinter();
var
  szDefPrinter: String;
  lBufSize: DWord;
begin
  SetLength(szDefPrinter, MAX_PATH);
  lBufSize := MAX_PATH;
  GetDefaultPrinter(Pchar(szDefPrinter), lBufSize);
  szDefPrinter := String (PChar(szDefPrinter));

  SetDefaultPrinter('zan image printer(bw)');
end;

#include <windows.h>
#include <winspool.h>

char  szDefPrinter[MAX_PATH];
DWORD dwBufSize;

dwBufSize = MAX_PATH;

GetDefaultPrinter(szDefPrinter, &dwBufSize);

SetDefaultPrinter("zan image printer(bw)");

using namespace System;
using namespace System::Text;
using namespace System::Runtime::InteropServices;

// Declare the function that is exported from unmanaged dll:
[DllImport("winspool.drv")]
extern "C" bool _cdecl GetDefaultPrinter(
	 StringBuilder^ pszBuffer, int *size);

[DllImport("winspool.drv")]
extern "C" bool _cdecl SetDefaultPrinter(
	 String^ pszPrinter);

	StringBuilder^ tempstr = gcnew StringBuilder(256);
	String^ szDefPrinter;
	int dwBufSize = tempstr->Capacity;

	GetDefaultPrinter(tempstr, &dwBufSize);
	szDefPrinter = tempstr->ToString();

	SetDefaultPrinter(L"zan image printer(bw)");

Imports System.Runtime.InteropServices
Imports System.Text
Imports System

Module Module1
 Declare Function GetDefaultPrinter Lib "winspool.drv" _
 Alias "GetDefaultPrinterA" (ByVal pszBuffer As System.Text.StringBuilder, _
 ByRef size As Int32) As Boolean

 Declare Function SetDefaultPrinter Lib "winspool.drv" Alias _
 "SetDefaultPrinterA" (ByVal pszPrinter As String) As Boolean


 Sub Main()
     Dim sPrinterName As String
     Dim tempstr As StringBuilder
     tempstr = New StringBuilder(256)

     GetDefaultPrinter(tempstr, tempstr.Capacity)
     sPrinterName = tempstr.ToString()

     SetDefaultPrinter("zan image printer(bw)")
 End Sub
End Module

using System.Runtime.InteropServices;
 class Program
 {
  static void Main(string[] args)
  {
      StringBuilder tempstr = new StringBuilder(256);
      string szDefPrinter ;
      int dwBufSize = tempstr.Capacity;

      GetDefaultPrinter(tempstr, ref dwBufSize);
      szDefPrinter = tempstr.ToString();

      // Set default printer
      SetDefaultPrinter("zan image printer(bw)");
  }

  [DllImport("winspool.drv", CharSet = CharSet.Auto, SetLastError = true)]
  public static extern bool GetDefaultPrinter(StringBuilder pszBuffer, 
      ref int size);

  [DllImport("winspool.drv", CharSet = CharSet.Auto, 
      SetLastError = true)]
  public static extern bool SetDefaultPrinter(string Name);
 }