PRINT PREVIEW

NILTON.VIANNA 17/02/2011 20:05:13
#365818

Ola amigos estou criando um form print preview
No formulário já tenho o flexgrid pronto (ok)
ao gerar um printform preview, com o item do grid (descrição)
o que eu fiz criei um label = LBDesc.UBound para repetir varias descrições com o mesmo label, já vi isso.
maios ou menos assim;

Private Sub GetLista()
Dim RsE As Recordset
SQL = [Ô]SELECT * FROM Cad_FxoCaixa WHERE CaixaID Like [ô][Ô] & CaixaID & [Ô]%[ô][Ô]
Set RsE = CnSql.Execute(SQL)
For x = 1 To 1
LBDesc(LBDesc.UBound).Caption = FrmCadFxCaixa.FG1.TextMatrix(x, 1)
Next x
RsE.Close
End Sub

Se alguém tiver uma luz eu agradeço, já estou entrando em parafuso
Grato