Fabio Aiello
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 26/09/2005 23:11 hs
Olá pessoal,
Como imprimir o conteúdo digitado de um msflexgrid.
Grato pela ajuda. |
|
|
|
|
|
Donkey
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/09/2005 02:29 hs
Na seção dicas tem se não me engano (infelizmente agora ele esta com pau, fui la conferir e não ta entrando, tente mais tarde), caso seja via Active Report os exemplos que acompanha o programa tem um bem simples de como imprimir grids. Pretende usar crystal, print, ou active report? Especifique para que o pessoal possa ajuda-lo + rápido.
T+
|
|
|
|
cajose
|
MACEIO
AL - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/09/2005 13:38 hs
José Carlos Vector
|
|
|
|
|
|
Postada em 27/09/2005 16:58 hs
faça um for next no flexgrid dim i as integer dim x as integer for i = 1 to flxgrid.rows for x = 1 to flxgrid.cols printer.print flxgrid.textmatrix(i,x) next i next i printer.enddoc |
|
|
|
Fabio Aiello
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/09/2005 23:38 hs
Olá Pessoal,
valeu mesmo pelas dicas. O problema é que nos exemplos também é impresso o MSFEXGRID, o que eu queria era que aparecesse somente o text digitado dentro do MSFEXGRID. Vou passar uma pequena parte do Prog. para ver se o pessoal pode me dar um help. Euso o evento CLIP mais ele tbm faz aparecer o grid.
agradeço as ajudas.
Private Sub CommandImprimir_Click()
Dim Linha As Integer
Dim intTamanho As Integer
If MsgBox("Iniciar a impressão?", 36, "Fabiani Transportes") = 7 Then
Exit Sub
End If
Linha = 1
Printer.FontName = "Verdana"
Printer.FontSize = 10
If Linha = 1 Then
Cabeçalho
End If
Printer.CurrentX = 300
Printer.Print Tab(3); 601;
Printer.Print Tab(20); TextNome.Text;
Printer.Print Tab(50); TextFuncao.Text;
Printer.Print Tab(70); TextCBO.Text;
Printer.Print Tab(75); TextEmp.Text;
Printer.Print Tab(80); TextLocal.Text;
Printer.Print Tab(85); TextDepto.Text;
Printer.Print Tab(90); TextSetor.Text;
Printer.Print Tab(95); TextSecao.Text;
Printer.Print Tab(100); TextFL.Text;
Printer.Print
intTamanho = MSFlexGrid.Width
MSFlexGrid.Width = Printer.Width
Printer.PaintPicture MSFlexGrid.Picture, 3, 2400
Printer.Print
Printer.Print Tab(80); TextTotalVencimento.Text;
Printer.Print Tab(100); TextTotalDesconto.Text
Printer.Print
Printer.Print Tab(100); TextValorLiquido.Text;
Printer.Print
Printer.Print Tab(3); TextSalarioBase.Text;
Printer.Print Tab(18); TextSalContrINSS.Text;
Printer.Print Tab(35); TextBaseCalcFGTS.Text;
Printer.Print Tab(48); TextFGTSMes.Text;
Printer.Print Tab(67); TextBaseCalcIRRF.Text;
Printer.Print Tab(85); TextFaixaIRRF.Text;
Linha = Linha + 1
If Linha >= 50 Then
Printer.NewPage
Linha = 1
End If
Printer.EndDoc
MSFlexGrid.Width = intTamanho
End Sub
|
|
|
|
Jorge Morgado
não registrado
|
|
Postada em 01/07/2015 09:09 hs
Dim intTamanho As Integer
intTamanho = MSFlexGridGerencialPedidosColocados.Width
MSFlexGridGerencialPedidosColocados.Width = Printer.Width
Printer.PaintPicture MSFlexGridGerencialPedidosColocados.Picture, 0, 0
Printer.EndDoc
MSFlexGridGerencialPedidosColocados.Width = intTamanho
rs. somente isso acima.
|
|
|
|
