DO FORM showforms WITH printqueue.pqidShowforms.Load
USE (Trim(print_properties.data_path)+"frfrmque") AGAIN ALIAS showforms IN 0Showforms.Init
LPARAMETERS tcQueId WITH This .QueId=IIF(EMPTY(tcQueID)," 1",tcQueId) .Caption = "Items to Print for Job " + TRANSFORM(.QueId) .CurWa = SELECT() SELECT showforms SET FILTER TO pqid = Thisform.QueID WITH .grdForms .recordsource="showforms" .readonly = .F. .columns(1).ControlSource = "fqid" .columns(2).ControlSource = "fqrectype" .columns(1).text1.readonly = .F. .columns(2).text1.readonly = .F. .columns(3).ControlSource = "fqoutput" .columns(4).ControlSource = "fqparam" .columns(1).Width = 35 .columns(2).Width = 30 .columns(3).Width = 125 .columns(4).Width = 75 .columns(1).Header1.Caption = "Doc #" .columns(2).Header1.Caption = "Type" .columns(3).Header1.Caption = "Name" .columns(4).Header1.Caption = "Comment" ENDWITH ENDWITHAny and all help will be greatly appreciated.........Rich