[String Converter P/ Data]

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

[Para William Rodrigues]

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

[Primeira Coluna Listview]

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

[Listview]

Utilizei o PrintForm

[Unload Form]

Willian,

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

[Cep]

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

[Unload Form]

Gustavo,

Já tinha tentado isto mas não funcionou.

[Cep]

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

[Listview]

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

[Unload Form]

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.

[String Converter P/ Data]

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

[Difença Entre Eof E Bof]

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

Obrigado

[Maskara]

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

[Insert]

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

[Trigger]

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

[Maskara]

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

[Primeira Letra Em Maiscula]

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.

[Asp Com Javascript]

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>

[Hiperlink]

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.

[Formatando A Pagina]

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

[Para Jissa]

<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

[Para Jissa]

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;

}

[Formatando A Pagina]

É isto mesmo, caso saiba de algum me avise

[Para Jissa]

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

[Formatando A Pagina]

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