Cassiano Sousa

Pessoal, estou com esse problema. Eu desenvolvi este relatório há muito tempo atrás para ser usado no Windows 98. O mesmo funcionava direitnho. Na configuração da impressora era possivel personalizar o papel na medida que eu desejava. Acontece que eu não estou conseguindo isso no XP. Simplismente o mesmo arquivo está imprimindo como se fosse A4. alguém tem alguma solução pra isso? Desde já agradeço a oportunidade deste forum. Cassiano Sousa

Estou precisando buscar quando uso o INSERT INTO em uma tabela com campo chave primaria autonumerador o numero q foi recebido para adicionar em uma tabela filho.A operação não pode ser com select porque funciona em rede... O bd é access 2000 usando ADO para acesso. Aguardo alguma orientação. Obrigado Editando: Verifiquei isto no macoratti.net: Nota: O Microsoft Access não suporta parâmetros de saída (output parameters) e não pode processar múltiplas instruções em uma única operação de lote. Para estes tipos de banco de dados podemos obter o novo valor para o campo auto-numeração gerado para uma linha incluída executando uma instrução SELECT em um tratamento de evento para o evento RowUpdated de um DataAdapter. Isto significa q eu não posso fazer o q eu tava querendo?

você pode botar em qualquer objeto testo desta maneir: <objeto> = format$(<informacao>,"##0.00")

Desculpe intrometer aki. Acho q tenho uma função aki pronta pra você usar pro list view Se não for issi q estah procurando me desculpe: 'Esta funçao serve para conectar o recordset Function GerarComando(Texto As String) As ADODB.Command Dim Cmd As New ADODB.Command Cmd.ActiveConnection = Conexao Cmd.CommandText = Texto Cmd.CommandType = adCmdText Set GerarComando = Cmd Set Cmd = Nothing End Function 'Com esta funcao você pode listar com um sql qualquer objeto listview. Ele cria a tabela com seu respectivo tamanho calculado e depois conecta o recordset e envia as informações. Sub ListarSQL(Obj As ListView, Texto As String, Tela As Form) Dim Rs As New ADODB.Recordset Dim clmx As ColumnHeader Dim Itmx As ListItem Dim I As Long Tela.MousePointer = vbHourglass Rs.Open GerarComando(Texto), , adOpenStatic Obj.ListItems.Clear Obj.ColumnHeaders.Clear For I = 0 To Rs.Fields.Count - 1 Step 1 If Rs.Fields(I).Type = adBigInt Or Rs.Fields(I).Type = adInteger Then Set clmx = Obj.ColumnHeaders.Add(, , Rs.Fields(I).Name, 800) ElseIf Rs.Fields(I).Type = adVarWChar Or Rs.Fields(I).Type = adChar Then If Rs.Fields(I).DefinedSize >= 100 Then Set clmx = Obj.ColumnHeaders.Add(, , Rs.Fields(I).Name, Rs.Fields(I).DefinedSize * 30) ElseIf Rs.Fields(I).DefinedSize >= 50 Then Set clmx = Obj.ColumnHeaders.Add(, , Rs.Fields(I).Name, Rs.Fields(I).DefinedSize * 50) ElseIf Rs.Fields(I).DefinedSize >= 5 Then Set clmx = Obj.ColumnHeaders.Add(, , Rs.Fields(I).Name, Rs.Fields(I).DefinedSize * 120) Else Set clmx = Obj.ColumnHeaders.Add(, , Rs.Fields(I).Name, Rs.Fields(I).DefinedSize * 600) End If ElseIf Rs.Fields(I).Type = adDate Then Set clmx = Obj.ColumnHeaders.Add(, , Rs.Fields(I).Name, Rs.Fields(I).DefinedSize * 250) ElseIf Rs.Fields(I).Type = adBoolean Then Set clmx = Obj.ColumnHeaders.Add(, , Rs.Fields(I).Name, Rs.Fields(I).DefinedSize * 300) ElseIf Rs.Fields(I).Type = 203 Then Set clmx = Obj.ColumnHeaders.Add(, , Rs.Fields(I).Name, 1000) Else MsgBox "O Campo " & Rs(I).Name & " é de um tipo desconhecido" End If Next I If Rs.RecordCount > 0 Then Rs.MoveFirst Do While Not Rs.EOF Set Itmx = Obj.ListItems.Add(, , Rs(0)) For I = 1 To Rs.Fields.Count - 1 If Rs(I).Type = adBoolean Then If Rs(I) = True Then Itmx.SubItems(I) = "SIM" Else Itmx.SubItems(I) = "NÃO" Else If Not IsNull(Rs(I)) Then Itmx.SubItems(I) = Rs(I) End If End If Next I Rs.MoveNext Loop End If Set Rs = Nothing Tela.MousePointer = vbDefault End Sub 'Agora se você quer colocar uma cor eu tenho outra função aki: Sub CorGridNovo(Obj as Listview,cor As ColorConstants, Chave As Long) Dim A As Integer Obj.ListItems.Item(Chave).ForeColor = cor For A = 1 To Obj.ColumnHeaders.Count -1 Step 1 Obj.ListItems(Chave).ListSubItems.Item(A).ForeColor = cor Next A End Sub Realmente para backcolor não funciona mas para forecolor sim Se tiver algum erro me avisa. Mais uma vez desculpe se não for isso e pela intromissao.

Olha não sei se tem uma maneira + facil. você pode somar usando a função DateAdd() Automaticamente você ira verificar a nova data. Depois você usa a funcao weekday() Com a weekday, ele retorna o numero da semana sendo 1 para domingo e 7 para sabado Se for sabado você manda adicionar mais 2 dias, se for domingo adicione + 1. Espero ter ajudado no que entendi

Boa tarde gente. Desculpe se eu não inseri a minha dúvida em algum tópico correto, pois eu não encontrei um tópico referente meu problema. Eu tenho um programa q usa as seguintes ocxs: mscomm32.ocx e cibervert.ocx(ocx de menu vertical). Este programa já roda normalmente no windows xp e foi desenvolvido en vb 6.0. Acontece que estou tentando instalar no windows vista em um notebook e o programa da erro nos dois componentes. já tentei registrar com o regsvr32 e os dois componentes dão falha na biblioteca. Detectei que o vista não usa a dll msvbvm50.dll e instalei e registrei a mesma no vista e ela funcionou e registrou corretamente. Porem continua o problema nos componentes. Gostaria que quem soubesse resolver este problema por favor informe aki. agradeço desde já a oportunidade q temos neste forum de resolver nossos problemas. Cassiano