rodrigotnoma

Aeeeeeeeeeeeee Gray Deu certo cara, vlw mesmo..... Tenho mais algumas dúvidas, mas para isso irei criando os topicos separados.... Vlw mesmo, obrigadao pela ajuda. Rodrigo

Até tinha feito isso, mas deu esse erro e pensei que estivesse errado: "Object doesn't support this property or method" ?????? Obrigado

você diz isso: OpenPrinter impressora.DeviceName, hPrinter, ByVal 0& ????

você pode me dizer se assim da? For Each impressora In Printer OpenPrinter Printer.DeviceName, hPrinter, ByVal 0& EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned If lNeeded > 0 Then ReDim byteJobsBuffer(lNeeded - 1) As Byte EnumJobs hPrinter, 0, 99, 1, byteJobsBuffer(0), lNeeded, lNeeded, lReturned If lReturned > 0 Then lJobCount = lReturned Else lJobCount = 0 End If Else lJobCount = 0 End If ClosePrinter hPrinter Text1.Text = CStr(lJobCount) If Text1.Text = 1 Then Form2.Show Text1.Text = 0 End If Next Ou devo altera mais alguma coisa... Desculpe a "encheção de saco". Obrigado

Obrigado... Posso fazer isso com For Each impressora in Printer Debug.Print impressora.DeviceName Next ???? Ou você faria como? Obrigado Rodrigo

Minha duvida é o seguinte: Coloquei num Timer isso: Private Sub Timer1_Timer() Dim hPrinter As Long, lNeeded As Long, lReturned As Long Dim lJobCount As Long OpenPrinter Printer.DeviceName, hPrinter, ByVal 0& EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned If lNeeded > 0 Then ReDim byteJobsBuffer(lNeeded - 1) As Byte EnumJobs hPrinter, 0, 99, 1, byteJobsBuffer(0), lNeeded, lNeeded, lReturned If lReturned > 0 Then lJobCount = lReturned Else lJobCount = 0 End If Else lJobCount = 0 End If ClosePrinter hPrinter Text1.Text = CStr(lJobCount) If Text1.Text = 1 Then Form2.Show End If End Sub quando mando imprimir pela impressora default o form2 é mostrado, mas quando escolho outra impressora no momento de imprimir o form2 não é chamado.Sei que é por causa do Printer.DeviceName, mas tem como fazer com que o Form2 seja chamado quando qualquer impressora for utilizada? Obrigado

Apareceu isso aqui: "select SUM(paginas) as totalpaginas from tb_impressao where cliente='" & adidas & "'" Text1.text rs!totalpaginas Mas não acontece nada...

Estou utilizando essa query e não esta retornando, nem erro: Set rs = cn.execute("select SUM(paginas) as totalpaginas from tb_impressao where cliente='" & cliente & "'") O campo "paginas" já esta como "numero" no access. O que estaria errado nessa query? Obrigado Rodrigo

Estava lendo esse post e fiquei com uma duvida. http://scriptbrasil.com.br/forum/index.php...pressora+padrão Devo implementar essa parte: Dim impressora As Printer For Each impressora In Printers Debug.Print impressora.DeviceName Next Nesta: Private Sub Form_Load() Dim hPrinter As Long, lNeeded As Long, lReturned As Long Dim lJobCount As Long OpenPrinter Printer.DeviceName, hPrinter, ByVal 0& EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned If lNeeded > 0 Then ReDim byteJobsBuffer(lNeeded - 1) As Byte EnumJobs hPrinter, 0, 99, 1, byteJobsBuffer(0), lNeeded, lNeeded, lReturned If lReturned > 0 Then lJobCount = lReturned Else lJobCount = 0 End If Else lJobCount = 0 End If ClosePrinter hPrinter End Sub Como o Graymalkin disse, onde implemento essa parte? Obrigado Rodrigo

Graymalkin Obrigado pela ajuda....consegui fazer atraves de API. vlw mais uma vez. Rodrigo

Qual propriedade do Printer utilizo para capturar o numero de paginas impressas? Obrigado Rodrigo

Boa tarde. Kuroi, fiz uma busca sim, mas não retornou nenhum resultado. Obrigado

Deu certo, obrigado Kuroi. Rodrigo

alguém poderia me ajudar, pois preciso capturar o IP da estação que esta rodando o meu aplicativo, como posso fazer isso? Obrigado Rodrigo

Kuroi Tentei fazer com Timer mas não consegui fazer com que o codigo fosse executado a cada 1s por exemplo, você pode me dar uma mão? Obrigado

Bom, consegui fazer alguma coisa, mas tenho algumas duvidas ainda: Tenho 2 combo no meu form(Combo1 possui a opçao usuario e equipamento, o Combo2 é dinamico ou seja conforme o que escolher no combo1 é preenchido de forma diferente) Meu BD Access, esta assim: ----------------------------------------------- usuario | equipamento Luis | mouse Andre | teclado Jorge | monitor ----------------------------------------------- Criei um DataEnvironment e no SQL Statement coloquei isso: select * from tb_troca where usuario=combo2.text Coloquei o nome dos parametros e OK. Criei um DataReport e configurei o DataSource e o DataMember para esse DataEnvironment que criei acima, arrastei os campos que quero que saia no meu relatório. Tenho um botão onde configurei para abrir o relatório. Private Sub Command1_Click() Set cn = New ADODB.Connection connstring = "provider=microsoft.jet.oledb.4.0;data source=\\192.168.0.120\equipamentos\cad_troca.mdb;" cn.Open connstring DataEnvironment2.Command1 Combo2.text DataReport1.Show End Sub O relatório abriu sem problemas. Agora se tentar fazer o que eu quero assim: SQL Statement select * from tb_troca where combo1.text=combo2.text e rodar o fonte da esse erro na hora de gerar o relatorio: "Argument not optional" e marca essa parte do codigo: DataEnvironment2.Command1 Combo2.text Preciso de ajuda... Orbigado

Estou tentando fazer um botao onde ao ser clicado o usuario visualizara um relatorio feito no data reporter, mas estou tendo dificuldades: -já criei o Data Environment -Arrastei os campos desejados para o Page Header e Detail -Criei o botao e coloquei: Private Sub Command1_Click() With rptbusca .Show End With End Sub A minha duvida é: Não quero todos os registros do BD no relatório e sim os dados de uma busca que o usuario ira realizar. Ex: Busca por usuario Gostaria que o relatorio mostrasse somente os usuarios que iniciam com a letra "T". Onde e como configuro a conexão com meu BD e como fazer a relação no Data Reporter? Obrigado Rodrigo

Cara, vlw pela ajuda, já consegui resolver: combo2.clear x=combo1.text Set rs = cn.Execute("select * from tb_troca") Do While Not rs.EOF Combo2.AddItem rs(x) rs.MoveNext Loop já lembrando que se não colocar o que esta em "laranja", toda vez que fizer uma escolha no combo1 no combo2 o resultado ira se acumulando e não aparecendo os dados corretos. Obrigado pela ajuda. Rodrigo

Estou usando esse codigo para fazer combo dinamica, detalhando: Tenho 2 combo, no primeiro tenho 2 opções de escolha: usuario e equipamento.quando escolho uma delas o segundo combo atualiza e mostra o que esta no BD.então no evento Click do combo1 coloquei isto: Set rs = cn.Execute("select * from tb_troca") Do While Not rs.EOF Combo2.AddItem rs("combo1.text") rs.MoveNext Loop Mas não esta conseguindo pegar o valor da combo1.text e da essa mensagem: "O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado". Se puderem me dar uma força agradeço. Rodrigo

Desculpe não entendi você Diogo..... Obrigado

você pode me ajudar Kuroi? Como faço isso? Obrigado Rodrigo

Fiz dessa forma, mas o form2 não apareceu quando mandei imprimir Private Sub Form_Load() Dim hPrinter As Long, lNeeded As Long, lReturned As Long Dim lJobCount As Long OpenPrinter Printer.DeviceName, hPrinter, ByVal 0& EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned Do DoEvents If lNeeded > 0 Then ReDim byteJobsBuffer(lNeeded - 1) As Byte EnumJobs hPrinter, 0, 99, 1, byteJobsBuffer(0), lNeeded, lNeeded, lReturned If lReturned > 0 Then lJobCount = lReturned Else lJobCount = 0 End If Else lJobCount = 0 End If ClosePrinter hPrinter If CStr(lJobCount) = 1 Then Form2.Show End If Loop End Sub Fiz alguma coisa de errado? Obrigado

Tenho em meu form, um botao onde possui o seguinte codigo: Private Sub Command1_Click() Dim hPrinter As Long, lNeeded As Long, lReturned As Long Dim lJobCount As Long OpenPrinter Printer.DeviceName, hPrinter, ByVal 0& EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned If lNeeded > 0 Then ReDim byteJobsBuffer(lNeeded - 1) As Byte EnumJobs hPrinter, 0, 99, 1, byteJobsBuffer(0), lNeeded, lNeeded, lReturned If lReturned > 0 Then lJobCount = lReturned Else lJobCount = 0 End If Else lJobCount = 0 End If ClosePrinter hPrinter Text1.Text = CStr(lJobCount) If Text1.Text = 1 Then Form2.Show End If End Sub So que para verificar se a condição existe tenho ficar pressionando o button, como posso fazer para que a cada 1 seg o meu sistema verificar sozinho ou seja, como se ele ficasse monitorando essa condição. Sera que a melhor opção é com o timer? Se for vai consumir muito processamento do meu pc? Obrigado pela ajuda. Rodrigo

você pode fazer com que ao carregar o form da sua aplicação em VB(load), ele faça uma condição utilizando datas que estarão já em seu banco ou utilizar a data atual do sistema(date(now)) e caso satisfaça essa condição ele da um mensagem de alerta. Se você puder especificar melhor a forma que você deseja utilizar as datas(se elas já estarão no banco ou se você vai utilizar a data do sistema) sera mais facil para ti ajudar. Acho que é isso... Abços Rodrigo

Obrigado pela ajuda... Não sei o que aconteceu, fechei o visual studio, abri novamente ,fiz um novo form e tudo voltou a funcionar normalmente.... Vlw pessoal...