Luiz Humberto

Lembre-se que a função Cdate irá converter o formato da data de acordo com as configurações do painel de controle.

Faz o teste em uma ListView? Porque testei e o conteudo dela não foi impresso, caso você tenha conseguido, me informe como proceder. valeu

Como não deixar a primeira coluna da listview editável.

Utilizei o PrintForm

Willian, valeu só uma notificação no cancel tem que ser igual a true.

Tenho um página de consulta de cep só que está desatualizada gostaria de saber como atualizar

Gustavo, Já tinha tentado isto mas não funcionou.

Onde consigo uma atualização dos cep pois tenho uma página e preciso de atualizar os dados

Tenho uma listview só que preciso imprimir o conteúdo da listview e quando imprimo ela fica em branco como se não estivesse nada. Obrigado

If MsgBox("Deseja Sair do Programa ?", vbYesNo + vbInformation, "Mutuário") = vbYes Then Unload Me Else Exit Sub End If só que mesmo escolhendo a opção não ele sai do form, agora usando um botão ele funciona corretamente.

Pode fazer assim utilizar a funçao cdate(NomeString)

Quando utilizo um recordset qual a diferença entre Eof e Bof Obrigado

Tenho um campo maskara, onde a propriedade Mask irá ser alterada de acordo com o primeiro digito. Ex: Caso o numero começar com 2 então a mask deve ser ###-#### se o numero for 3 mask ####-#### Só terá estas duas variações. valeu

Abaixo segue o código que faz a inserção no banco, gostaria de saber se tem como eu usando este mesmo código inserir em outra tabela. Supondo que eu tivesse SQL_Query1, neste mesmo código aproveitando esta conexão. Dim SQL_Query As String Dim ConnADO As ADODB.Connection Dim Comando As ADODB.Command Set ConnADO = New ADODB.Connection ConnADO.Open StrConn Set Comando = New ADODB.Command SQL_Query = "Insert Into Orcamento (Cod_Fornecedor,Data_Orcamento," _ & "Valor_Sem_Desconto,Desconto,Valor_Com_Desconto)" _ & "Values(" & ComboFornecedor.ItemData(ComboFornecedor.ListIndex) & "," _ & "'" & Fix(CDbl(CDate(MaskData.Text))) & "','" & MaskVlrSdesconto.Text & "'," _ & "'" & MaskDesconto.Text & "', '" & MaskVlrCDesconto.Text & "')" With Comando .ActiveConnection = StrConn .CommandText = SQL_Query Debug.Print SQL_Query .Execute End With

Como fazer um trigger para que faça a inserção em duas tabelas ou utilizando o comando insert.

O problema é o seguinte, tenho um campo maskara para ser digitado o telefone, só tem dois tipos para digita-los um é 222-2222 e outro e 3030-3030, começando com 2 será sempre três digitos depois o traço o que for diferente de dois será quatro digitos e o traço. O que está acontecendo é colocque "###-####" como default, mas se começar a digitar com 3 o que vai mudar a seguência, digito não sai nada depois digito novamente aí aparece o digito mas na segunda posição. Como posso resolver este problema Private Sub MaskNumero_Change() Dim PrimeiroDigito As String Dim Aux As String PrimeiroDigito = MaskNumero.ClipText If Trim(PrimeiroDigito) <> "" Then Aux = Mid(PrimeiroDigito, 1, 1) If Aux = 2 Then MaskNumero.Mask = "###-####" Else MaskNumero.Mask = "####-####" End If End If End Sub

Como fazer para que a primeria letra fique em maiscula e o restante em minuscula, mas quando encontrar um espaço coloque novamente a proxima em maisucla.

Estou com um problema porque tenho dois relatorios que depende do codigo_vendedor, supondo codigo_vendedor=1 abre um relatorio e codigo_vendedor=2 abre outro, abaixo e o meu link, acho que tem uma saida fazendo com java script só que não consegui. <a href="imprimir.asp?codigo_imprimir=<%=RSBusca("codigo")%> & codigo_vendedor=<%=RSBusca("vendedor")%>"OnClick= "return ConfirmaImpressao()">Imprimir</a>

Gostaria de saber se tem como passar mais um parametro e como devo fazer. <a href="imprimir.asp?codigo_imprimir=<%=RSBusca("codigo")%>"Imprimir</a> Pois a minha impressão dependo do codigo do mutuario e tipo de vendedor.

Tente isto: script language=vbscript> Set altera_margens = CreateObject("WScript.Shell") header = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\header" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\header", " VALOR DA CABECALHO ", "REG_SZ" footer = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\footer" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\footer","VALOR DO RODAPE", "REG_SZ" 'CUIDADO COM O VALOR DAS MARGENS QUE É UMA MEDIDA MEIO ESQUISXZITA margin_bottom = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_bottom" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_bottom", " VALOR DA MARGEM ", "REG_SZ" margin_left = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_left" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_left", "VALOR DA MARGEM", "REG_SZ" margin_right = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_right" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_right", "VALOR DA MARGEM", "REG_SZ" margin_top = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_top" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_top", "VALOR DA MARGEM", "REG_SZ" window.print() 'VOLTANDO OS VALORES ORIGINAIS altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\header",header, "REG_SZ" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\footer", footer, "REG_SZ" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_bottom", margin_bottom, "REG_SZ" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_left", margin_left, "REG_SZ" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_right", margin_right, "REG_SZ" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_top", margin_top, "REG_SZ" </SCRIPT> Autor :Igor Reis

<script language=vbscript> Set altera_margens = CreateObject("WScript.Shell") header = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\header" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\header", " VALOR DA CABECALHO ", "REG_SZ" footer = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\footer" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\footer","VALOR DO RODAPE", "REG_SZ" 'CUIDADO COM O VALOR DAS MARGENS QUE É UMA MEDIDA MEIO ESQUISXZITA margin_bottom = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_bottom" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_bottom", " VALOR DA MARGEM ", "REG_SZ" margin_left = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_left" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_left", "VALOR DA MARGEM", "REG_SZ" margin_right = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_right" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_right", "VALOR DA MARGEM", "REG_SZ" margin_top = altera_margens.RegRead "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_top" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_top", "VALOR DA MARGEM", "REG_SZ" window.print() 'VOLTANDO OS VALORES ORIGINAIS altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\header",header, "REG_SZ" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\footer", footer, "REG_SZ" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_bottom", margin_bottom, "REG_SZ" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_left", margin_left, "REG_SZ" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_right", margin_right, "REG_SZ" altera_margens.RegWrite "HKCU\Software\Microsoft\Internet Explorer\PageSetup\margin_top", margin_top, "REG_SZ" </SCRIPT> Autor: Igor Reis

Desculpa minha pergunta não ficou bem formulada, faltou o você no começo da frase e o ? no final da frase, postei para você esta msg porque um cara do forum falou que está procurando sobre o assunto. AH! o que você postou no sosphp funcionou? function PrintIt() { if(!factory.object) { alert("Erro ao tentar imprimir"); return false; } cabecalho = factory.printing.header; rodape = factory.printing.footer; factory.printing.header = ""; factory.printing.footer = ""; window.print(); factory.printing.header = cabecalho; factory.printing.footer = rodape; }

É isto mesmo, caso saiba de algum me avise

Consegui descobrir como faz para tirar o cabeçalho e rodape de um página.

Tem algum script que defina a formatação da página (esquerda,direita,superior e inferior)