MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [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 : 4213
    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 19 vez(es)


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    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 : 1027
    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 : 6819
    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 19 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4213
    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 : 6819
    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 : 366
    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 : 4213
    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 : 366
    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 : 6819
    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 : 4213
    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 13 vez(es)


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6819
    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 : 4213
    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 : 6819
    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 : 4213
    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: 9/8/2020, 13:26