Perguntas inserir até 4 itens por folha no orcfat

boa tarde
gostaria de saber como que eu faço para imprimir até 4 itens por folha
hoje só estou conseguindo 1 item por folha

Static Function R100ITENS (nReg,nLin)

Local ccNum := SCK->CK_NUM

DbSelectArea("SCK")
DbGoTo(nReg)


//Dados dos Itens (SCK)
oPrint:Box(1150,HMARGEM,1680,nColMax)

oPrint:Say (1180,HMARGEM+50,"Item",oFont12n,,,,0)

oPrint:Say (1180,HMARGEM+550,"Material",oFont12n,,,,0)


oPrint:Say (1180,HMARGEM+1800,"Qtde.",oFont12n,,,,0)


oPrint:Say (1180,HMARGEM+2200,"Valor Unit.",oFont12n,,,,0)


oPrint:Say (1180,HMARGEM+2600,"Valor Total do Item",oFont12n,,,,0)


While SC7->(!Eof()) .and. SCK->CK_FILIAL == xFilial("SCK") .and. SCK->CK_NUM == ccNum



oPrint:Say (1240,HMARGEM+50,ALLTRIM(SCK->CK_ITEM),oFont12,,,,0)

oPrint:Say (1240,HMARGEM+250,POSICIONE("SB1",1,xFilial("SB1")+SCK->CK_PRODUTO,"B1_DESC"),oFont12,,,,0)

oPrint:Say (1240,HMARGEM+1850,Alltrim(Transform(SCK->CK_QTDVEN, PesqPict("SCK","CK_QTDVEN"))),oFont12,,,,2)

oPrint:Say (1240,HMARGEM+2290,Alltrim(Transform(SCK->CK_PRCVEN, PesqPict("SCK","CK_PRCVEN"))),oFont12,,,,2)

oPrint:Say (1240,HMARGEM+2750,Alltrim(Transform(nTotal, PesqPict("SCK","CK_VALOR"))),oFont12,,,,2)




SCK->( DbSkip() )


ENDDO


Return

ok estou enviando!