none
Imprimir em VBA RRS feed

Respostas

  • Private Sub pPrintForm()
      Dim wks As Excel.Worksheet
      
      Application.SendKeys "^%{1068}"
      Application.Wait Now + TimeSerial(0, 0, 1)
      DoEvents
      Unload Me
      
      Set wks = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
      ActiveSheet.Paste
      
      'Altere o endereço da célula abaixo para ajustar
      'o endereço de onde o outro formulário será colado:
      Application.Goto Range("A15")
      ActiveSheet.Paste
      
      With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 1
      End With
      
      wks.PrintOut Copies:=2
    
      Application.DisplayAlerts = False
      wks.Parent.Close SaveChanges:=False
      Application.DisplayAlerts = True
      
      MsgBox "Impressão concluída!", vbInformation
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    domingo, 8 de junho de 2014 22:58
    Moderador

Todas as Respostas

  • Experimente colocar o código abaixo no módulo do formulário:

    Me.PrintForm
    Me.PrintForm


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quinta-feira, 5 de junho de 2014 00:41
    Moderador
  • Obrigado pela sugestão

    Já experimentei mas não dá

    Precisava mesmo de encontrar o código ou uma fórmula para esta questão. Elaborei um Recibo de pagamento que me arquiva os dados, faz a contagem automática dos recibos, imprime, faz a busca de dados pelo número de recibo, etc, etc. Mas precisava de imprimir OriginaL e duplicado na mesma folha A4.

    De qualquer maneira agradecido pela ajuda

    Rui

    domingo, 8 de junho de 2014 22:06
  • Private Sub pPrintForm()
      Dim wks As Excel.Worksheet
      
      Application.SendKeys "^%{1068}"
      Application.Wait Now + TimeSerial(0, 0, 1)
      DoEvents
      Unload Me
      
      Set wks = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
      ActiveSheet.Paste
      
      'Altere o endereço da célula abaixo para ajustar
      'o endereço de onde o outro formulário será colado:
      Application.Goto Range("A15")
      ActiveSheet.Paste
      
      With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 1
      End With
      
      wks.PrintOut Copies:=2
    
      Application.DisplayAlerts = False
      wks.Parent.Close SaveChanges:=False
      Application.DisplayAlerts = True
      
      MsgBox "Impressão concluída!", vbInformation
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    domingo, 8 de junho de 2014 22:58
    Moderador
  • Caro Filipe

    Estou-lhe muito agradecido.

    Estou a testar o código que me enviou e está a resultar. Só preciso de pequenos ajustes.

    O meu muito obrigado

    Rui

    segunda-feira, 9 de junho de 2014 18:39