MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


4 participantes

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

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    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 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


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    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 27/3/2019, 10:58

    up


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    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 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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    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  Alvaro Teixeira 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 29 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    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 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 ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    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  Alvaro Teixeira 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 480
    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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 480
    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 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) (Motivo da edição : Eliminar link externo)


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    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  Alvaro Teixeira 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    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 19/4/2019, 09:15

    Bom dia Teixeira

    Boa Páscoa

    A situação está estacionada Basketball Basketball


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    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  Alvaro Teixeira 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    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 22/4/2019, 12:11

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    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  Alvaro Teixeira 22/4/2019, 20:51

    cheers
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    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 22/4/2019, 22:18

    cherry


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

    Conteúdo patrocinado


    [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  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 01:07