... oPrn := PrintBegin( cNmbArchivo , .F. , .F. , 'PDFCreator' , .F. , .F. , ) else ; oPrn := PrintBegin( , .F. , .F. , , .F. , .F. , ) endif oPen := TPen():New(,7,,) oFont := DefLetraPRN( oPrn ) SetUpRecibo( IDRecibo ) nLongReci := ( TTRI )->longhoja / ( TTRI )->recxhoja if !(CREC)->estado$'G' ...