* Click PrintButton DO 'Menus\PrintMenu.mpr' TRY DO CASE CASE THISFORM.WhatToPrint = 'Pending' oCA = CREATEOBJECT('MyCursorAdapter') REPORT FORM 'Forms\Report1.frx' PREVIEW CASE THISFORM.WhatToPrint = 'All' * More code... ENDCASE REMOVEPROPERTY(THISFORM,'WhatToPrint') CATCH TO oException ENDTRY * MyCursorAdapter Init TRY WITH THIS .ADDPROPERTY('lnSql',SQLCONNECT('SOS')) .DATASOURCETYPE = 'ODBC' .DATASOURCE=.lnSQL .CURSORSCHEMA = SPACE(1) .SELECTCMD = 'SELECT * FROM Sys_Sos' .Alias = 'InvoicePrint' .BufferModeOverride = 5 .SELECTCMD = 'SELECT * FROM PrintNotInvoiced' llReturn = .CURSORFILL(.F.,.F.,0,.lnSql) ENDWITH CATCH TO oException ENDTRY>Hi,