Boa noite!!

Meu amigo por favor leia as regras!!!!!!!!!!!!

Nossas Regras
viewtopic.php?f=7&t=203

Quesito REGRAS
Upload de arquivos
Ja temos mais de 1,5GB em arquivos aqui no Planilhando, e como não geramos $$$, temos que ser austeros no uso da banda e recursos, por isso, segue novas regras pra upload de arquivos:
-Tamanho máximo: 2Mb
-Formato obrigatório: .Zip - .rar - .ice

Desculpe amigo estava distraído, como faço para remover o arquivo?

Cumprimentos

Boa noite!!

Explique melhor, oque quer dizer com..

até acabarem os números dos registos dos formandos

???

Desculpe amigo estava distraído, como faço para remover o arquivo?

Cumprimentos

Eu compactei seu arquivo!!

Bom dia,

obrigado por ter compactado o meu arquivo, mais uma vez peço desculpa pelo sucedido.

O que eu pretendo dizer com "até acabarem os registos dos formandos" é: na folha 1-Preencher tenho que colocar os nomes dos formandos e atribuir uma numeração, normalmente 1, 2, 3, ...até ao ultimo formando.

Ora por cada unidade de formação dada, tenho que imprimir como é lógico, as respectivas avaliações dos formandos.

Por exemplo, no caso desta unidade,FUNDIÇÃO EM CADINHO ficava assim:

1 folha impressa GRELHA GERAL
1 folha impressa GRELHA FINAL
1 folha impressa FRENTE para o aluno nº 1 nome A
1 folha impressa VERSO para o aluno nº 1 nome A
1 folha impressa FRENTE para o aluno nº 2 nome B
1 folha impressa VERSO para o aluno nº 2 nome B
...
...
...
1 folha impressa FRENTE para o aluno nº 21 nome U
1 folha impressa VERSO para o aluno nº 21 nome U

Deu para compreender?

Obrigado pela colaboração

Boa noite!!

Veja se isso pode te ajudar

Private Sub Workbook_BeforePrint(Cancel As Boolean)
     
     
    Dim vWorksheets
    Dim vWorkSheet_NAME
    Dim myWorkSheet As Worksheet
     
    With ActiveWorkbook
        For Each vWorkSheet_NAME In vWorksheets
            .Worksheets(vWshName).ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:="C:Escolha o Local" & vWorkSheet_NAME, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
        Next vWorkSheet_NAME
    End With
theEND:
End Sub

Boa tarde amigo Alexandre, peço desculpa mas não estou a conseguir fazer nada com o seu código. Pode dar-me mais alguma informação? Tem algum exemplo para ver como é que funciona?

Obrigado pela sua ajuda e colaboração

Cumprimentos

Boa tarde!!

Você tem o exemplo de sua postagem!!

Você pediu para gerar um formato em PDF, neste pedaço

Filename:="C:Escolha o Local

, colo o local exato sem erro de digitação!!

Tem coisas que NÃO posso testar, pois uso apenas 10% de tudo que o excel me da, isso quando uso, eu não impressora etc.

Desculpa se estou me intrometendo, mas algumas considerações:
Os geradores de PDF (que conheço) não geram frente e verso, geram apenas ; uma vista (se e que podemos chamar assim.
A "fução" frente e verso e inerente à impressora e apenas a ela, ou seja se houver essa capabilidade na impressora, então é possivel imprimir os formatos gerados frente e verso. Normalmente as impressoras que detem essa possibilidade, são as profissionais de alta capacidade, pois a mesma precisa receber o comando de frente e verso, imprimir uma folha, reter essa folha, virar o lado do papel impimir a segunda folha (essa no verso ja impresso) e liberar a folha/pagina impressa. São impressoras caras e por isso pouco utilizadas no comercio/industria em geral.
Não tendo esse tipo de impressora, pode ser feito "manualmente" , por exemplo primeiro imprimesse as folhas limpares, então inverte-se o lado da folha (tomando o cuidado com a orientação) realimenta a limpressora com essas folhas e "manda-se" imprimir as folhas pares.

Colegas, tambem vou aproveitar a deixa e me intrometer, a principio a impressão Frente e Verso como foi bem explicado pelo colega Reinaldo é opção de configuração de determinadas IMPRESSORAS, nem todas aceitam este recurso, onde trabalho, por ser impressoras de locação e para uso de varios setores a mesma aceita este recurso, e geralmente temos de defini-las manualmente alterando a opção para frente e verso, então é feito todo o processo explicado acima paraimprimir dos dois lados.

Coiote, primeiramente você deve ter a certeza que a impressora tem esta opção, se sim, pode-se acessar e definir a configuração atraves de APIs do Windows para "setar" a opção, e não é uma tarefa muito simples, eu particularmente quando posso evitar o uso de APIs eu prefiro, pois as APIs mexem com as bibliotecas do SO e ja tive alguns incovenientes por problemas de incompatibilidades.

Abaixo segue uma sugestão da própria Microsoft para uso no Word e uma impressora em Rede, mas como estamos falando de VBA é só fazer alguns ajustes.
O único problema é que para poder ajudar a adaptar a rotina teriamos de ter a mesma impressora (Modelo, marca) que você utiliza, uma vez que nem todas teem as mesmas opções ou são em telas diferentes, então caberá a você dar uma olhada narotina abaixo e ver se consegue adapta-la, lógicamente talvez em alguma parte possamos dar alguma orientação, mas para testar e obter o resultado esperado só quem tiver a mesma impressora.

De uma olhada :
Como definir a impressão em frente e verso para clientes de automatização do Microsoft Word
O código seguinte utiliza a API DocumentProperties para alterar as definições de impressão do controlador de impressora para activar a impressão em frente e verso.
http://support.microsoft.com/kb/828638/pt

[]s

Boa noite,

eu acho que estou a gerar confusão...! A folha FRENTE e a folha VERSO, diz respeito à folha de cálculo (AVALIACAO_UFCD_2.xls), que por uma questão de orientação, atribuí esses nomes, mas poderia chamar-lhes outra coisa qualquer, por exemplo (X e Y). Doravante, suponhamos então que X= folha FRENTE e que Y= folha Verso

O que eu pretendo é uma rotina que me imprima as respectivas folhas X e Y para os n alunos existentes, neste caso 21.

Talvez eu não esteja a conseguir explicar-me muito bem, mas façam este exercício:

abram o ficheiro e simulem a impressão do aluno A, com a respetiva folha X e folha Y,
agora o aluno B,
agora o C,
agora o ...
estão a imaginar fazer isto 21 vezes?
Compreendem a situação?

Abraços e um muito obrigado

Bom dia!!

Coiote, não conseguiu testar a rotina que te mandei???

Att

Boa noite, caro Alexandre...

Infelizmente não consegui testar essa rotina. Será que me consegue fazer o upload do ficheiro com um botão com a rotina incorporada?

Cumprimentos

Noel

Bom dia!!

Após abrir o excel, aperte as teclas Alt + F11, dê 2 clicks em EstaPAsta_De_Trabalho, e acerte o diretório, pois neste caso, tem que ser de acordo com seu PC!!

Att