MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3806
    Registrado : 06/11/2009

    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir Empty [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir

    Mensagem  Assis em 25/3/2019, 23:50

    Boa noite Alexandre

    Neste seu exemplo o relatório tem dados para duas paginas.

    Mas com o relatório dentro do formulário não temos essa informação.

    Como indicar o numero de paginas e escolher a página que queremos imprimir ?

    Tópico de Origem

    Obrigado
    Anexos
    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir AttachmentPrint2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (61 Kb) Baixado 18 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3806
    Registrado : 06/11/2009

    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir Empty Re: [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir

    Mensagem  Assis em 27/3/2019, 10:58

    up


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 682
    Registrado : 13/12/2016

    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir Empty Re: [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir

    Mensagem  Alexandre Fim em 27/3/2019, 11:25

    Bom dia Assis,

    Neste exemplo eu quis mostrar a possibilidade de utilizar o objeto para exibir o relatório (inclusive vc pode exibir uma tabela ou uma consulta também).
    Nunca trabalhei a fundo neste objeto, mas fica a critério do fórum ai pra melhorar essa ideia.

    Abraço
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5848
    Registrado : 15/03/2013

    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir Empty Re: [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir

    Mensagem  ahteixeira em 29/3/2019, 12:45

    Olá a todos,

    Assis, para saber qual o numero da página do relatório é apenas uma questão matemática.

    Se sabemos que a listagem imprime 31 linhas de registo, então obtemos a parte inteira do resto da divisão por 32 e adicionamos 1.
    Segue o exemplo

    Abraço
    Anexos
    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir AttachmentContador_Pagina.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 12 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3806
    Registrado : 06/11/2009

    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir Empty Numero de paginas e escolher a pagina que queremos imprimir

    Mensagem  Assis em 29/3/2019, 13:11

    Teixeira

    Mas como tem duas páginas repare.

    Obrigado

    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir Sem_tz90


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5848
    Registrado : 15/03/2013

    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir Empty Re: [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir

    Mensagem  ahteixeira em 29/3/2019, 14:53

    Olá a todos, dividi o tópico para não misturar questões.

    Assis, não reparei nesse detalhe, mas as páginas só aparece no modo Pré-Visualizar.
    Desconheço como fazer, se pretende mesmo o número de páginas a alternativa será como já referi com recurso à "Matemática" facilmente obtém o numero das páginas.

    É um bom exercicio  Laughing

    Abraço
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 234
    Registrado : 25/02/2016

    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir Empty Re: [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir

    Mensagem  FranklinJSP em 30/3/2019, 00:07

    Boa noite Assis!

    Não sei se este código funciona para o que vc precisa.

    Código:
    Private Sub Imprimir_Click()
    On Error GoTo CancelarImpresion
    Dim DesdePag, HastaPag
      DesdePag = 2
      HastaPag = 3
      Application.Echo False
      DoCmd.OpenReport "Relatorio", acPreview
      DoCmd.PrintOut acPages, DesdePag, HastaPag, acDraft, 1
      DoCmd.Close acReport, "Relatorio"
      Application.Echo True
     
    On Error GoTo 0
      Exit Sub

    CancelarImpresion:
      Resume Next
    End Sub

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3806
    Registrado : 06/11/2009

    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir Empty Re: [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir

    Mensagem  Assis em 1/4/2019, 10:40

    Bom dia Franklin

    A intenção era mesmo não ativar a impressora se esta estiver desligada.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 234
    Registrado : 25/02/2016

    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir Empty Re: [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir

    Mensagem  FranklinJSP em 1/4/2019, 14:38

    Bom dia Assis

    Da uma olhada no codigo

    Código:
    Option Compare Database
    Option Explicit

    Private Enum PrinterStatus1
      PrinterIdle = 3
      PrinterPrinting = 4
      PrinterWarmingUp = 5
      ' For more states see WMI docs.
    End Enum

    Private Function PrinterStatusToString(ByVal ps As PrinterStatus1) As String
      Dim s As String
        Select Case ps
        Case PrinterStatus1.PrinterIdle
        s = "waiting (idle)"
        Case PrinterStatus1.PrinterPrinting
        s = "printing"
        Case PrinterStatus1.PrinterWarmingUp
        s = "warming up"
        Case Else ' Vielleicht gibt es noch weitere Fälle...
        s = "unknown state"
        End Select
      PrinterStatusToString = s
    End Function

    Private Sub Form_Load()
      Dim strPrintServer As String
        strPrintServer = "localhost"
      Dim WMIObject As String, PrinterSet As Object, Printer As Object
      WMIObject = "winmgmts://" & strPrintServer
      Set PrinterSet = GetObject(WMIObject).InstancesOf("win32_Printer")
          For Each Printer In PrinterSet
          MsgBox ( _
          Printer.Name & ": " & _
          PrinterStatusToString(Printer.PrinterStatus) _
          )
          Next Printer
    End Sub

    Saludos


    Última edição por FranklinJSP em 1/4/2019, 15:14, editado 1 vez(es) (Razão : Eliminar link externo)


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5848
    Registrado : 15/03/2013

    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir Empty Re: [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir

    Mensagem  ahteixeira em 18/4/2019, 22:19

    Olá a todos,

    Assis, como ficou a situação? A dúvida ficou esclarecida?
    A sua questão da mensagem nº 8 não tem haver com o titulo do tópico.

    Abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3806
    Registrado : 06/11/2009

    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir Empty Re: [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir

    Mensagem  Assis em 19/4/2019, 09:15

    Bom dia Teixeira

    Boa Páscoa

    A situação está estacionada Basketball Basketball
    Anexos
    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir AttachmentPrint2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (102 Kb) Baixado 7 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5848
    Registrado : 15/03/2013

    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir Empty Re: [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir

    Mensagem  ahteixeira em 21/4/2019, 12:29

    Olá Assis, obrigado e Boa Páscoa também.

    Quanto ao código que o colega FranklinJSP partilhou:
    - na mensagem n. 7 serve para escolher as paginas a imprimir;
    - na mensagem n. 9 serve para verificar o estado das impressoras.

    No entanto uma vez que já tem um tópico aberto para essa questão deve continuar lá e manter este para a questão do título.

    Se a questão das páginas ficou esclarecido deve dar o tópico como Resolvido.

    Abraço a todos
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3806
    Registrado : 06/11/2009

    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir Empty Re: [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir

    Mensagem  Assis em 22/4/2019, 12:11

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5848
    Registrado : 15/03/2013

    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir Empty Re: [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir

    Mensagem  ahteixeira em 22/4/2019, 20:51

    cheers
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3806
    Registrado : 06/11/2009

    [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir Empty Re: [Resolvido]Numero de paginas e escolher a pagina que queremos imprimir

    Mensagem  Assis em 22/4/2019, 22:18

    cherry


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 24/4/2019, 07:38