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

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

up

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

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

Teixeira

Mas como tem duas páginas repare.

Obrigado

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  

Abraço

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

Bom dia Franklin

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

Obrigado

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

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

Bom dia Teixeira

Boa Páscoa

A situação está estacionada

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

Obrigado