Boa noite!!

Se for o que eu imagino, será um tanto complexo, mas seja lá como for, seria bom que postasse seu arquivo modelo compactado!!

Att

salty_dog,

Boa Noite!

Bom... não sei se você está se referindo a um formulário criado na prórpia interface do Excel ou um formulário (UserForm) cirado na Interface do VBA. De qualquer forma, se eu entendi corretamente, para imprimir um formulário criado na interface do Excel, basta ir no botão do Office e mandar imprimir normalmente, como qualquer arquivo criado. No teste que fiz aqui, não cheguei a imprimir. Apenas usei a visualização da impressão e vi que imprime normal.

Se for um formulário criado na interface do VBA basta ir noi meuni Arquivo do VBA, escolher o ítem imprimir, selecionmar o botão Projeto atuale marcar apenas a caixa de seleção Imagem do formulário.

Wagner, boa tarde!

Legal a sua dica porém, os "titulos" do frame que no meu caso são as seções envolvidas, ainda não aparecem na impressão. Eu vou mandar o arquivo para facilitar a análise. Por hora, valeu pela atenção!

Abraços

Wagner, boa tarde!

Legal a sua dica porém, os "titulos" do frame que no meu caso são as seções envolvidas, ainda não aparecem na impressão. Eu vou mandar o arquivo para facilitar a análise. Por hora, valeu pela atenção!

Abraços

salty_dog,

Boa Tarde!

Creio que isso é uma deficiência do VBA para impressão dos Frames. Ele não imprime o cabeçalho do frame. No meu foi do mesmo jeito.

Bem... não pesquisei mais informações para saber se faz ou não. Creio que uma forma mais rápida de resolver o problema é você mandar rodar o formulário e tirar um print screen da tela do formulário já em tempo de execução. Dai você colca esse print no Word e imprime à vontade. No meu caso não deu para ver o formulário completo porquer estou utilizando um monitor wide screen e não consegui ver todo o formulário. Entrertanto, como é um monitor de 17 polegadas, faltou apenas a última linha do último frame.

Caso isso não resolva o seu problema, aí acho melhor você desenhar o formulário na própria interface do Excel, utilizando os objetos ActiveX disponíveis na guia Desenvolvedor.

Creio que o colega Morel tem razão quanto a deficiencia do VBA para impressão. Como no momento trata-se apenas de um Formulario para limpressão o melhor seria "monta-lo" no excel, assim voce teria uma possibilidade maior de detalhes.
Mas se quiser continuar a utilizar o Form, uma opção seria: Elimine os nomes do(s) Frames e acrescente +/- na mesma posição um label com a mesma descrição.
Assim será impresso normalmente.

Não sei se entendi corretamente, e aqui em casa não tenho impressora, e no modelo anexado não tem nenhuma rotina referente a qualquer tipo de impressão,então de uma olhada no link abaixo e baixe o anexo e depois cole as rotinas que estão no form no seu, aqui a visualização só não foi completa referente ao tamanho do formulário, ele é bem maior que o tamanho do meu monitor, mas quanto aos cabeçalhos aparecem normalmente.

Visualizar impressão (userform)
viewtopic.php?f=23&t=2032

[]s

Muito bom Mauro, uma solução que não havia pensado.

Boa tarde ao Mauro e ao Reinaldo!

Eu já tinha encontrado esta solução na opção de pesquisa mas não entendi o que fazer. Quando vc Mauro fala "copiar a rotina do exemplo dele no meu formulário", como é o procedimento? (desculpe amigos, sou mesmo um "café com leite" no assunto" rsrs)

Desde já agradeço pela atenção!

Salty, no arquivo que baixou, na tela do vba, selecione o Userform1 de dois cliques no botão "Visualizar Impressão do Form" e na tela que abrir, copie todas as instruções, depois de dois cliques no seu formulário e cole-as, depois adicione um CommndButton em seu formulário, certifique-se que o mesmo tem o nome "CommandButton1", se não for este é só alterar na rotina "Private Sub CommandButton1_Click()" para o nome que foi criado.

[]s

Amigos, surgiu outra dúvida! Quando comando a impressão, o formulário sai com o tamanho/escala de 130% o que eu já resolvi alterando no código para 90% que é a minha necessidade. Porém, para não ficar reformatando a cada momento da impressão, é possível deixar as margens esquerda e direita com zero e documento centralizado na horizontal?

Abaixo temos praticamente todas as propriedades configuraveis referente a PageSetup, só tem de ajustar a sua necessidade, ou acione o Gravador de Macros, configure a pagina da manera que precisa, assim terá com exatidão as variaveis.

Public Sub cusPrintArea() 
     
    Dim myRange As String 
     
    myRange = Selection.Address 
    ActiveSheet.PageSetup.PrintArea = myRange 
     
    On Error Goto 1 
    1: Exit Sub 
     
    With ActiveSheet.PageSetup 
        .LeftHeader = "" 
        .CenterHeader = "" 
        .RightHeader = "" 
        .LeftFooter = "" 
        .CenterFooter = "" 
        .RightFooter = "" 
        .LeftMargin = Application.InchesToPoints(0.5) 
        .RightMargin = Application.InchesToPoints(0.5) 
        .TopMargin = Application.InchesToPoints(0.5) 
        .BottomMargin = Application.InchesToPoints(0.5) 
        .HeaderMargin = Application.InchesToPoints(0.5) 
        .FooterMargin = Application.InchesToPoints(0.5) 
        .PrintHeadings = False 
        .PrintGridlines = False 
        .PrintComments = xlPrintNoComments 
        .PrintQuality = 600 
        .CenterHorizontally = False 
        .CenterVertically = False 
        .Orientation = xlLandscape 
        .Draft = False 
        .PaperSize = xlPaperLetter 
        .FirstPageNumber = xlAutomatic 
        .Order = xlDownThenOver 
        .BlackAndWhite = False 
        .Zoom = False 
        .FitToPagesWide = 1 
        .FitToPagesTall = 1 
        .PrintErrors = xlPrintErrorsDisplayed 
    End With 
     
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
     
End Sub 

[]s

Amigos, vocês tem sido a minha salvação! rsrs
Preciso de mais uma informação acerca do formulário anexo. Como disse anteriormente, ele foi desenvolvido para ser "estático", ou seja, impressão e preenchimento à caneta pelas seções correspondentes. Mas agora preciso colocar os códigos nos controles de forma que eu consiga extrair um relatório no final do dia, apontando a relação/resumo de borderôs emitidos durante o dia.

forum/viewtopic.php?f=23&t=7595