PROBLEMAS COM MSFLEXGRID
Alguém, poderia me ajudar pois estou imprimindo e exportando para excel o msflexgrid, mas só imprimi e exporta dados e as cellbackcolor não aparece.
Por favor envie o código certo, segue o código que estou usando:
para Exportar para excel;
Dim i As Long, j As Long
Dim objExcel As Object
Dim objWorkbook As Object
On Error Resume Next ' por si se cierra Excel antes de cargar los datos
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add
For i = 0 To grdconsultadispositivos.Rows - 1
grdconsultadispositivos.Row = i
For j = 0 To grdconsultadispositivos.Cols - 1
grdconsultadispositivos.Col = j
objWorkbook.ActiveSheet.cells(i + 1, j + 1).Value = grdconsultadispositivos.Text
Next
Next
objExcel.cells.Select
objExcel.selection.EntireColumn.AutoFit ' Ancho de columna
objExcel.Range("A1").Select
objExcel.ActiveWindow.SelectedSheets.PrintPreview ' Previsualizar informe
Set objWorkbook = Nothing
Set objExcel = Nothing
para imprimir;
If grdconsultadispositivos.Rows <= 2 Then
MsgBox "Não existe dados para Impressão, Por Favor selecione os Dispositivo ou um Projeto!", vbOKOnly, Me.Caption
Else
P001.PrintGrid grdconsultadispositivos, 1, "Relação de Dispositivos", PrintSettings.GRID_NORMAL
O que esta faltando para sair as cores das células, pois elas representam valores, como um gráfico.
OBS: como posso posicionar na tela coluna por exemplo 50, pois o msflexgrid colori a coluna da semana atual mas não posiciona na tela.
OBS: Poderia responder no meu email: robson.francisco@gm.com com cópia: robsonme@gmail.com[txt-size=1] [/txt-size]
Por favor envie o código certo, segue o código que estou usando:
para Exportar para excel;
Dim i As Long, j As Long
Dim objExcel As Object
Dim objWorkbook As Object
On Error Resume Next ' por si se cierra Excel antes de cargar los datos
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add
For i = 0 To grdconsultadispositivos.Rows - 1
grdconsultadispositivos.Row = i
For j = 0 To grdconsultadispositivos.Cols - 1
grdconsultadispositivos.Col = j
objWorkbook.ActiveSheet.cells(i + 1, j + 1).Value = grdconsultadispositivos.Text
Next
Next
objExcel.cells.Select
objExcel.selection.EntireColumn.AutoFit ' Ancho de columna
objExcel.Range("A1").Select
objExcel.ActiveWindow.SelectedSheets.PrintPreview ' Previsualizar informe
Set objWorkbook = Nothing
Set objExcel = Nothing
para imprimir;
If grdconsultadispositivos.Rows <= 2 Then
MsgBox "Não existe dados para Impressão, Por Favor selecione os Dispositivo ou um Projeto!", vbOKOnly, Me.Caption
Else
P001.PrintGrid grdconsultadispositivos, 1, "Relação de Dispositivos", PrintSettings.GRID_NORMAL
O que esta faltando para sair as cores das células, pois elas representam valores, como um gráfico.
OBS: como posso posicionar na tela coluna por exemplo 50, pois o msflexgrid colori a coluna da semana atual mas não posiciona na tela.
OBS: Poderia responder no meu email: robson.francisco@gm.com com cópia: robsonme@gmail.com[txt-size=1] [/txt-size]
Bom..o q vc pode tentar fazer é:
No momento que vc insere o valor, dentro do seu For, já q a célula está selecionada..manda o seu vb pintar
Range("F9").Select
With Selection.Interior
.ColorIndex = 5 'azul
.Pattern = xlSolid
End With
boa sorte
AE NUNCA MAIS FAÇA ESSE TIPO DE COISA! POSTAR A MESMA COISA VARIAS VEZES
POSTE SOMENTE UMA VEZ...POIS VC PODE SER EXPULSO DO FÓRUM..
GRATO
ROBSONME
Por favor, não repita tópicos.
LEIA AS REGRAS
E ao sanar sua dúvida, finalize o tópico e pontue quem lhe respondeu mais devidamente. Assim sempre vc vai ter a simpatia dos outros usuários.
Agradeço por sua colaboração.
Por favor, não repita tópicos.
LEIA AS REGRAS
E ao sanar sua dúvida, finalize o tópico e pontue quem lhe respondeu mais devidamente. Assim sempre vc vai ter a simpatia dos outros usuários.
Agradeço por sua colaboração.
Conforme combinado segue o código:
'Em um módulo coloque:
Option Explicit
Public cnn As ADODB.Connection
Public rs As ADODB.Recordset
Public SqlTabela As String
'no form coloque
SqlTabela = "Sua intrução SQL"
Conecta
Set DataGrid1.DataSource = rs
'Em um módulo coloque:
Option Explicit
Public cnn As ADODB.Connection
Public rs As ADODB.Recordset
Public SqlTabela As String
Public Sub Conecta()
Set cnn = New Connection
cnn.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source='" & App.Path & "\BolOnLine.mdb';Jet OLEDB:Database Password=241000;"
Set rs = New ADODB.Recordset
rs.Open SqlTabela, cnn, adOpenKeyset, adLockOptimistic, adCmdText
End Sub
'no form coloque
SqlTabela = "Sua intrução SQL"
Conecta
Set DataGrid1.DataSource = rs
Acho q o Flavio postou em lugar errado!!
Postei não rsrsrs
Ele mandou uma mensagem interna e eu disse que iria colocar o código aqui.
Ele mandou uma mensagem interna e eu disse que iria colocar o código aqui.
Blz...desculpa ae!!
Tópico encerrado , respostas não são mais permitidas