Decio

Eu também uso o VB6 no Windows XP e não tive nenhum problema.você esta tendo algum problema??

A sei, não tinha entendido bem. Mas sera que isto tem jeito? As informações de impressão não ficam gravadas no arquivo do Excel , devem ficar gravadas no Registro do Windows. Talvez com VBA você consiga alterar as configurações , mas não entendo muito de programação no Excel.

No VB6 não tem essa possibilidade , no VB.Net existe a possibilidade de criar programas tipo "console" , que se parecem com programas DOS. O que você precisa fazer mais precisamente?

Olha, é apena um chute: No VB6 tem uma dll de linguagen que se chama vb6xx.dll . O xx é a abreviação da linguagem ex: "vb6br.dll" . Tente fazer uma busca pela internet que você vai encontrar facilmente esta dll. Obs : tente achar no site da Microsoft

O total de linhas que eu saiba , você vai ter que fazer um do while até o fim do arquivo, incrementando uma váriavel para saber o total de linhas. Para sair de um do while , bastaria dar um "end do": n = 10 Do n = n - 1 If n = 3 Then Exit Do Loop

você pode tentar usar o commondialog. Não testei se funciona mudar o tamanho, porque meu driver de impressão não tem esta opção. Seu código ficaria + ou - assim: CommonDialog1.Orientation = cdlPortrait CommonDialog1.MaxFileSize = 60 CommonDialog1.ShowPrinter Isto vai chamar a caixa de dialogo de impressão já configurada, porém o usuario vai ter que clicar no botão imprimir. Como sempre alguém vai resolver clicar onde não se deve...

Da uma olhada neste site: http://www.rogercom.com/ Apesar que eu acredito que você não vai ter acesso direto a baixo nível na porta paralela embaixo do Windows. Normalmente isso é feito em nivel de device drivers.

Se for uma dll diferente das do tipo COM (daquelas que precisa registrar no Windows), você também precisa criar um arquivo tipo ".def " para ser copilado junto com a dll , exportando todas as funções.Ex: LIBRARY NomeDLL DESCRIPTION "Comentarios..." EXPORTS NomeFunção1 @1 NomeFunção1 @2 ...etc...

Na verdade a "linguagem" ASP como muito dizem , na verdade tem muito a ver com o VbScript. Esta deve ser a solução do seu problema.Eu também acredito que no fórum ASP você vai encontrar melhor solução para o seu problema.

Alguém sabe como retirar a tela de login no Red-Hat 9 ?? preciso que o sistema entre automáticamente no X , sem precisar digitar login e senha.

uma forma de fechar aplicativos é usando a API do Windows. Copie o exemplo abaixo , crie um novo projeto , coloque um label, um command button e um text box no seu projeto. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Const SW_SHOWNORMAL = 1 Const WM_CLOSE = &H10 Private Sub Command1_Click() '********************************************************* ret = CStr(Text1) 'Aqui fecha todas as janelas 'WinWnd = FindWindow(vbNullString, ret) 'Aqui fecha uma janela especifica WinWnd = FindWindow("NomeDaJanela", ret) If WinWnd = 0 Then Label1.Caption = "Janela não encontrada..." Else ShowWindow WinWnd, SW_SHOWNORMAL 'lpClassName = Space(256) Label1.Caption = "Class name: " & ret 'Left$(lpClassName, CStr(ret)) End If PostMessage WinWnd, WM_CLOSE, 0&, 0& '******************************************************** End Sub

é apenas para facilitar a digitação. Sem este comando o seu código ficaria assim: Adodc1.ConnectionString = conexao Adodc1.RecordSource = sql Neste caso nem se justifica usar o With porque só tem dois métodos.

Neste caso você pode usar um código para cada empresa , na hora de instalar o software , você define para qual empresa se destina o programa em questão . Dai não é preciso mais ficar digitando o código.

Se você mudar a propriedade "MultiLine = True" , não vai tocar o som.

pois é , eu tambem não sou adepto do resume next, mas é melhor do que erros mal resolvidos na sua aplicação.

Não vou falar que não tem jeito, mas desta forma que você esta fazendo não vai funcionar mesmo. O comando "Open "lpt1:" For Output As #n" vai tentar abrir a porta paralela do terminal e não do servidor. você vai ter que tentar outras alternativas.

Se roda no Kurumin , eu não sei , mas igual ao VB tem o HBasic: http://hbasic.sourceforge.net/ Tem alguns screenshots do software no site.

Mas e a estoria de criar uma função em C para receber uma referencia e exportar para uma dll e depois alterar no Vb e depois... sei la.. Isso funciona?? Abraço

e se você tentar colocar um Resume Next no final da função continua ? será que funciona??

você pode tentar este tutorial na página do Macoratti: http://www.macoratti.net/vss_vb.htm

Valeu, resolvi com um Linux que roda direto do CD. Pode fechar o tópico.Obrigado.

Estou enrolado de novo com o Linux... A cpu (tudo onboard) foi trocada, e deu pau na configuração de video. O problema é que não consigo parar a aplicaçãp que já estava instalada, para tentar configurar em modo texto. Alguém tem alguma sugestão de como parar o boot para alterar manualmente a configuração. A distribuição é a Suse.

Se você chamar uma função que retorne um valor , e este valor não for importante , você pode chamar a função com o call, evitando ter que criar uma váriavel só para chamar a função.

Funcionou, obrigado.

Talvez exista um problema na ordem em você esta dando os comandos.você deve fazer assim: Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Open "SELECT * FROM tabela WHERE xx=yy;", CONN, adOpenForwardOnly, adLockReadOnly 'Codigo para usar o recordset 'Fecha Rs rs.Close 'Destroi o objeto Set rs = Nothing O objeto recordset , você pode fecha-lo assim que terminar o uso , caso precise usar novamente , basta repetir o código. Já a conexão com o banco de dados você deve encerrar somente ao sair do seu programa: CONN.Close Set CONN = Nothing