Ir para conteúdo
Fórum Script Brasil

ARPrado

Membros
  • Total de itens

    11
  • Registro em

  • Última visita

Posts postados por ARPrado

  1. Olá pessoal,

    Como posso fazer para cancelar um procedimento de impressão usando o commodialog usando o click no botão cancelar?

    Veja eu uso este procedimento para impressão, e exite um botão para cancelar a impressão como trato este botão?

    With CommonDialog1

    Screen.MousePointer = vbHourglass

    .ShowPrinter

    .CancelError = True

    PagInicial = .FromPage

    PagFinal = .ToPage

    NumCopias = .Copies

    For i = 1 To NumCopias

    ImpConfPC

    Next i

    Screen.MousePointer = vbNormal

    End With

  2. Amigos, nunca usei um subreport e estou pegando uma surra. Estou usando dentro do VB para chamar o relatório principal no crystal com um filtro, como faço para filtrar também um sub-relatorio.

    veja como está feito a rotina .

    Private Sub cmdImprime_Click()

    Screen.MousePointer = vbHourglass

    'SitProcesso.rpt -> relatorio principal

    'MovProcesso.rpt -> sub-relatorio

    SQLQuery = "({tbProcesso.strNprocesso} = '" & txtProcesso.Text & "')"

    CrystalReport1.SelectionFormula = SQLQuery

    CrystalReport1.ReportFileName = Diretorio & "rpt\SitProcesso.rpt"

    CrystalReport1.WindowTitle = "Situação de processo"

    CrystalReport1.WindowState = crptMaximized

    CrystalReport1.WindowShowPrintSetupBtn = True

    CrystalReport1.Formulas(0) = "Licenca = '" & ReadINI("EMPRESA", "Razao_Social", Diretorio & "SAP.INI") & "'"

    'CrystalReport1.Formulas(1) = "NProcesso = '" & Trim(txtProcesso.Text) & "'"

    CrystalReport1.Action = 1

    CrystalReport1.Reset

    ZeraFormula Me

    Screen.MousePointer = vbNormal

    End Sub

    Ai como faço para filtrar o sub-relatorio com o mesmo número de processo?

×
×
  • Criar Novo...