IMPRIMIR O MSFLEXGRID COM...

USUARIO.EXCLUIDOS 10/04/2007 14:19:05
#211033
Boa tarde, eu tenho um Msflesgrid d venda e quero após colocar a mercadoria a vedner q tenha um botão q imprima esse conteúdo e mais um textbox q tem no form q seria o total da venda q teria no msflesgrid,,, com os comandos abaixo eu imprimo oq tem no msflexgrid....
@@@@@@@@@@@@@
Private Sub Command2_Click()

Printer.TrackDefault = True
'Printer.ScaleMode = 6
Printer.Orientation = 1  '1 - retrato  | 2- Paisagem
'Printer.PaperSize = 14   ' A4
Printer.PrintQuality = 1
Printer.ColorMode = 1
Printer.PaintPicture MSFlexGrid1.Picture, 0, 10
Printer.EndDoc

End Sub

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

mas quero saber como tbm posso imprimir o textbox q ta no form q é o total da venda e tbm um cabeçalho antes do conteúdo do msflexgrid...

Desde já agradeçoa atenção
USUARIO.EXCLUIDOS 11/04/2007 06:05:42
#211134

Bom, se n precisar ter a caixinha do textbox...faça

Printer.Print TextTotal.Text

No Caso do cabeçalho faça:

Printer.Print " Texto a ser impresso " , Todo texto simples, sempre entre aspas..só isso!!

Boa sorte!

MARCIOR 11/04/2007 08:39:07
#211154
se quiser pode colocar o total no proprio msflexgrid..

'----
PreencheFlexGrid2 = True
MSFlexGrid2.TopRow = rs.RecordCount - 1

MSFlexGrid2.AddItem "Total", MSFlexGrid2.Rows
For var_nlin = 1 To MSFlexGrid2.Rows - 2
For var_nCol = 3 To MSFlexGrid2.Cols - 1
MSFlexGrid2.TextMatrix(MSFlexGrid2.Rows - 1, var_nCol) = Format(CDbl _
(IIf(Not IsNumeric(MSFlexGrid2.TextMatrix(MSFlexGrid2.Rows - 1, _
var_nCol)), 0, MSFlexGrid2.TextMatrix(MSFlexGrid2.Rows - 1, _
var_nCol))) + CDbl _
(MSFlexGrid2.TextMatrix(var_nlin, var_nCol)), "#,##0.00")
Next
Next
Tópico encerrado , respostas não são mais permitidas
Voltar