DO FORM showforms WITH printqueue.pqid>
USE (Trim(print_properties.data_path)+"frfrmque") AGAIN ALIAS showforms IN 0>
>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 >ENDWITH >>