Resolvi testando as linhas após os cabecalhos
DBSELECTAREA("PRODUTOS")
Ordsetfocus(2)
PRODUTOS->( DBGOTOP() )
oPDF:Begin()
oPDF:SetType( PDFCLASS_ROLLS )
oPDF:AddPage()
nLinha := 13
nMaxCol := oPDF:MaxCol()
oPDF:DrawImageSize( 0, 0, 4, 19, "logotipo.jpg" ) // logotipo
oPDF:DrawText( 5, 0, RTRIM(FLAG->n_xNome), nil, 10, "Helvetica-Bold", Nil, Nil )
oPDF:DrawText( 6, 0, RTRIM(FLAG->n_xLgr) + ', ' + RTRIM(FLAG->n_nro), Nil, 8, "Helvetica", Nil, Nil )
oPDF:DrawText( 7, 0,'BAIRRO - ' + RTRIM(FLAG->n_xBairro), Nil, 8, "Helvetica", Nil, Nil )
oPDF:DrawText( 8, 0, "CEP " +FLAG->n_CEP + ' - ' + RTRIM(FLAG->n_xMun) + ' - ' + FLAG->n_xUF + " - FONE: " +FLAG->n_fone, Nil, 8, "Helvetica", Nil, Nil )
oPDF:DrawText( 9, 0, 'CNPJ-'+RTRIM(FLAG->n_CNPJ) + ' Insc.Est.-' + RTRIM(FLAG->n_IE) , Nil, 8, "Helvetica-Bold", Nil, Nil )
oPDF:DrawLine( 10, 0, 10, nMaxCol, 1 )
oPDF:DrawText( 11.5, 0, "ZERADOS em: " + DTOC(M->DAT_HOJE) + ' - ' + TIME(), Nil, 12, "Helvetica-Bold", Nil, Nil )
oPDF:DrawLine( 12, 0, 12, nMaxCol, 1 )
DO WHILE ! EOF()
IF PRODUTOS->PROSER = "1" .AND. (PRODUTOS->ESTATU + PRODUTOS->ESTL02) = 0.0000
oPDF:DrawText( nLinha , 0, SUBSTR(PRODUTOS->DESPRO,1,nMaxCol), Nil, 08, "Helvetica", Nil, Nil )
nLinha += 1
IF MEMVAR->nLinha > 70
oPDF:AddPage()
nLinha := 0
ENDIF
ENDIF
DBSKIP()
ENDDO
IF MEMVAR->nLinha > 70
oPDF:AddPage()
nLinha := 0
ENDIF
oPDF:DrawLine( nLinha, 0,nLinha, nMaxCol, 1 )
oPDF:End( )
ENDIF
oPDF:PrintPreview( )