FiveTech Software tech support forums

Dear Tim,

function PRNDUPLEX() just uses one parameter and it is properly assigned here:

lpDevMode->dmDuplex = hb_parni( 1 );

... create a printer device context using the CreateDC API call: Code: Select all HDC hDC = CreateDC( _T( "winspool" ), szPrinter, NULL, lpDevMode ); Or make this configuration as the default for this printer and for all applications using this printer. DWORD dw; PRINTER_INFO_2 *pi2; ...

... create a printer device context using the CreateDC API call: Code: Select all HDC hDC = CreateDC( _T( "winspool" ), szPrinter, NULL, lpDevMode ); Or make this configuration as the default for this printer and for all applications using this printer. Code: Select all DWORD dw; PRINTER_INFO_2 ...

... no soportado", "Error" ) endif return lCamReso DLL32 FUNCTION EnumDisplaySettings(lpszDeviceName AS DWORD,; iModeNum AS DWORD, ; @lpDevMode AS LPSTR) AS BOOL PASCAL; FROM "EnumDisplaySettingsA" LIB "User32.dll" DLL32 STATIC FUNCTION ChangeDisplaySettings(@lpDevMode ...

... no soportado", "Error" ) endif return lCamReso DLL32 FUNCTION EnumDisplaySettings(lpszDeviceName AS DWORD,; iModeNum AS DWORD, ; @lpDevMode AS LPSTR) AS BOOL PASCAL; FROM "EnumDisplaySettingsA" LIB "User32.dll" DLL32 STATIC FUNCTION ChangeDisplaySettings(@lpDevMode ...

... "StrucT.ch" #define PRINTER_ACCESS_ADMINISTER 0x00000004 STRUCT oPrnDefaults MEMBER pDatatype AS LPSTR MEMBER pDevMode AS LPSTR // LPDEVMODE MEMBER DesiredAccess AS DWORD // ACCESS_MASK MEMBER pFirstJob AS DWORD MEMBER pNoJobs AS DWORD MEMBER pLevel AS DWORD MEMBER pJob AS DWORD ...

... para una impresora es 260, alucina, y yo probando del 1 al 14, pues mal vamos. La función PRINTERSETUP() no guarda o mantiene la esctructura LPDEVMODE , por lo tanto, es imposible saber el codigo BIN que le corresponde a las diferentes bandejas de la impresora. function GetBinSelection: integer; ...

... else MsgStop("Modo no soportado", "Error" ) end Return lCamReso DLL32 FUNCTION EnumDisplaySettings(lpszDeviceName AS DWORD,; iModeNum AS DWORD, ; @lpDevMode AS LPSTR) AS BOOL PASCAL; FROM "EnumDisplaySettingsA" LIB "User32.dll" DLL32 FUNCTION ChangeDisplaySettings(@lpDevMode AS LPSTR,; dwFlags ...

... else MsgStop("Modo no soportado", "Error" ) end Return lCamReso DLL32 FUNCTION EnumDisplaySettings(lpszDeviceName AS DWORD,; iModeNum AS DWORD, ; @lpDevMode AS LPSTR) AS BOOL PASCAL; FROM "EnumDisplaySettingsA" LIB "User32.dll" DLL32 FUNCTION ChangeDisplaySettings(@lpDevMode AS LPSTR,; dwFlags ...

... MsgAlert("Modo no soportado", "Error" ) endif return lCamReso DLL32 FUNCTION EnumDisplaySettings(lpszDeviceName AS DWORD,; iModeNum AS DWORD, ; @lpDevMode AS LPSTR) AS BOOL PASCAL; FROM "EnumDisplaySettingsA" LIB "User32.dll" DLL32 FUNCTION ChangeDisplaySettings(@lpDevMode AS LPSTR,; dwFlags ...

... nao suportado", "Erro" ) ENDCASE endif return lDone DLL32 FUNCTION EnumDisplaySettings(lpszDeviceName AS DWORD,; iModeNum AS DWORD, ; @lpDevMode AS LPSTR) AS BOOL PASCAL; FROM "EnumDisplaySettingsA" LIB "User32.dll" DLL32 FUNCTION ChangeDisplaySettings(@lpDevMode AS LPSTR,; dwFlags ...