Ir para conteúdo
Fórum Script Brasil

Ander

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    29

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Ander

  9. Imprimir Uma Datagrid

    em Visual Basic

    Postado

    mas a onde eu ponho isso no meu cido para não imprimir os null

    meu codigo

    Private Sub Command3_Click()

    On Error Resume Next

    If Err.Number = 32755 Then

    Exit Sub ' sai fora da sub e não imprime nada

    End If

    Printer.Print Label1

    Set rs = Adodc2.Recordset 'só pra encurtar o nome

    Do While Not rs.EOF

    Printer.Print rs.Fields("Codigo").Value, rs.Fields("Clientes").Value, rs.Fields("E_Mail").Value, rs.Fields("E_Mail1").Value, rs.Fields("E_Mail2").Value

    rs.MoveNext

    Loop

    Printer.EndDoc

    End Sub

  11. Commondialog.show Printer

    em Visual Basic

    Postado

    Estou tendo esse mesmo erro coloquei esse codigo acima mas ainda quando clico em cancelar manda a impressão para impressora

    meu codigo:

    Private Sub Command3_Click()

    On Error Resume Next

    CommonDialog1.ShowPrinter

    If Err.Number = 32755 Then

    'Realiza o que você quizer quando for cancelado

    End If

    Printer.Print Label1

    Set rs = Adodc2.Recordset 'só pra encurtar o nome

    Do While Not rs.EOF

    Printer.Print rs.Fields("Codigo").Value, rs.Fields("Clientes").Value, rs.Fields("Atividade").Value

    rs.MoveNext

    Loop

    Printer.EndDoc

    End Sub

  15. Imprimir Uma Datagrid

    em Visual Basic

    Postado

    cara deu certo porem agora eu quero que apareça a caixa de dialoga da impressora estou usando esse codigo porem da um erro

    Compile error:

    User-defined type not define

    esse é o codigo que estou usando

    no botão imprimir esse codigo:

    Private Sub Command3_Click()

    If (MsgBox("Deseja imprimir a consulta?", vbYesNo, "Imprimir Arquivo") = vbYes) Then

    DisplayPrinterProperties Printer.DeviceName

    Else

    Set rs = Adodc2.Recordset 'só pra encurtar o nome

    Do While Not rs.EOF

    Printer.Print rs.Fields("Codigo").Value, rs.Fields("Clientes").Value, rs.Fields("Atividade").Value

    rs.MoveNext

    Loop

    End If

    Printer.EndDoc

    End Sub

    E para exibir a caixa da impressora esse codigo:

    Public Function DisplayPrinterProperties(DeviceName As String) As Boolean

    'Exibe a caixa de dialogo da impressora

    'PARAMETRO: DeviceName: O nome da impressora padrão

    'COMO CHAMAR : DisplayPrinterProperties Printer.DeviceName

    On Error GoTo ErrorHandler

    Dim lAns As Long, hPrinter As Long

    Dim typPD As PRINTER_DEFAULTS

    typPD.pDatatype = 0

    typPD.pDesiredAccess = PRINTER_ALL_ACCESS

    typPD.pDevMode = 0

    lAns = OpenPrinter(Printer.DeviceName, hPrinter, typPD)

    If lAns <> 0 Then

    lAns = PrinterProperties(Me.hWnd, hPrinter)

    DisplayPrinterProperties = lAns <> 0

    End If

    ErrorHandler:

    If hPrinter <> 0 Then ClosePrinter hPrinter

    End Function

    poderia me ajudar novamente obrigado

  17. Imprimir Uma Datagrid

    em Visual Basic

    Postado

    Eu coloquei esse codigo em um botão porem deu o seguinte erro:

    Compile erro:

    Variable not define

    Private Sub Command3_Click()

    Set rs = Adodc2.Recordset 'só pra encurtar o nome

    Do While Not rs.EOF

    Printer.Print rs.Fields("Codigo").Value, rs.Fields("Clientes").Value, rs.Fields("Atividade1").Value

    rs.MoveNext

    Loop

    Printer.EndDoc

    End Sub

  18. Imprimir Uma Datagrid

    em Visual Basic

    Postado

    é porque eu estou usando uma pesquisa se eu for selecionar todo o record set que preenche o grid não vai funcionar minha pesquisa segue abaixa o condigo da minha pesquisa

    Private Sub DataList1_Click()

    Dim strconsulta As String

    strconsulta = "Select * from Clientes Where Atividade = '" & DataList1.BoundText & "' OR Atividade2 = '" & DataList1.BoundText & "' OR Atividade3 = '" & DataList1.BoundText & "'"

    With Adodc2

    .RecordSource = strconsulta

    .Refresh

    End With

    With DataGrid1

    .ClearFields

    .ReBind

    End With

    Label1.Caption = "Relação de Empresa com o Ramo: " & DataList1.Text

    End Sub

    Eu quero Imprimir o resultado desta pesquisa que apracer no meu DataGrid

    Por Favor me de uma luz

  21. Pesquisa Datalist Resultado Em Datagrid

    em Visual Basic

    Postado

    desculpa acho que te mandei coisa errada

    Estou tendo um problema com minha consulta quando eu clico em um ramo de atividade que está na minha DataList o o seuinte erro:

    Complile error:

    Method or data member not found

    ai em clico em ok e o BV seleciona a linha onde está escrito .ClearFields

    alguém poderia me ajudar

    meu codigo

    Private Sub DataList1_Click()

    Dim strconsulta As String

    strconsulta = "Select * from Clientes Where Atividade = '" & DataList1.BoundText & "' OR Atividade2 = '" & DataList1.BoundText & "' OR Atividade3 = '" & DataList1.BoundText & "'"

    With Data1

    .RecordSource = strconsulta

    .Refresh

    End With

    With MSFlexGrid1

    .ClearFields

    .ReBind

    End With

    Label1.Caption = "Relação de Empresa com o Ramo: " & DataList1.Text

    End Sub

  23. Auto Numerção

    em Visual Basic

    Postado

    Olá pessoal Estou tentado fazer um auto numeração o que eu quero quando eu clicar no nemu Incluir o campo codigo vai ser auto numerção não não funciona estou usando base de dados access atraves do ADO

    Meu codigo é esse

    Private Sub mnuArquivoIncluir_Click()

    Txtempresa.SetFocus

    'Adciona um novo registro.

    Clientes.Recordset.AddNew

    Public Icodigo As Long

    With rs

    Icodigo = 0

    Dim sSQL As String

    sSQL = "SELECT MAX(Codigo) as MAxPed From Clientes "

    Set rs = cn.Execute(sSQL)

    If Not IsNull(rs!MaxPed) Then

    Form1.Icodigo = Format(Val(rs!MaxPed + 1), "0000")

    txtCodigo.Text = Format(Icodigo, "0000")

    Else

    Form1.Icodigo = Format(Icodigo, "0000")

    txtCodigo.Text = Format(Icodigo, "0001")

    End If

    End With

    End Sub

    o que tem de errado poderia me ajudar

  25. Implementar Recurso De Auto-completar

    em Visual Basic

    Postado

    [SIZE=7]faça um modulo e nomeio com API.bas

    Dentro deste modulo coloque esse codigo

    'Todas as variávesi devem ser declaradas.

    Option Explicit

    'Declara uma variável global.

    Global Combo As String

    'Declara as funções de API GetUserName e

    'SendMessage que são utilizadas.

    Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

    Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

    'Define constantes públicas.

    Public Const CB_ERR = -1

    Public Const CB_FINDSTRING = &H14C

    Sub AutoProcura(cbo As ComboBox, KeyAscii As Integer)

    'Declara as Variáves sBuffer e lRetVal.

    Dim sBuffer As String

    Dim lRetVal As String

    sBuffer = Left(cbo.Text, cbo.SelStart) & Chr(KeyAscii)

    lRetVal = SendMessage((cbo.hwnd), CB_FINDSTRING, -1, ByVal sBuffer)

    'Verifica se o combo está vazio.

    'se não estiver, faz a pesquisa.

    If lRetVal <> CB_ERR Then

    cbo.ListIndex = lRetVal

    cbo.Text = cbo.List(lRetVal)

    cbo.SelStart = Len(sBuffer)

    cbo.SelLength = Len(cbo.Text)

    KeyAscii = 0

    End If

    End Sub

    <span style='font-size:14pt;line-height:100%'>Depois no seu fomulario de um duplo clique na combobox e coloque este codigo</span>

    Private Sub DataCombo1_KeyPress(KeyAscii As Integer)

    'Executa o Procedimento Passado

    'dois parâmetros.

    AutoProcura cboProcura, KeyAscii

    End Sub

    Espero que tenho lhe ajudado

×
×
  • Criar Novo...