Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Impresão de Form

Ir para baixo 
2 participantes
AutorMensagem
nuno




Mensagens : 62
Data de inscrição : 27/02/2013

Impresão de Form Empty
MensagemAssunto: Impresão de Form   Impresão de Form EmptyQui Ago 22, 2013 2:36 pm

Bom dia

Como sempre necessitava da vossa ajuda:

Tenho uma tela de cadastro onde existe um botão de Printform. Acontece que imprime-me o formulário numa folha mas na vertical. Queria que sempre que carregasse ele direcionasse a impressora pré definida a imprimir na horizontal e já agora que ajustasse o tamanho que eu definir.

Como posso fazer isso?

Como este form é para ser utlizado em vários pcs teria que configurar todas a s impressoras e isso não é pratico!

Agradecia a vossa ajuda.


Obrigado
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Impresão de Form Empty
MensagemAssunto: Re: Impresão de Form   Impresão de Form EmptySáb Ago 24, 2013 8:05 pm

Boa tarde!!!
Leia:
http://social.msdn.microsoft.com/Forums/pt-BR/def468a2-a317-496e-85a1-ab37bd449264/printing-vba-userform-as-landscape
Código:
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_SNAPSHOT = 44
Const VK_LMENU = 164
Const KEYEVENTF_KEYUP = 2
Const KEYEVENTF_EXTENDEDKEY = 1
 
 
Private Sub CommandButton1_Click()
   
    DoEvents
   
    Application.ScreenUpdating = False
   
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
   
    DoEvents
   
    Workbooks.Add
   
    Application.Wait Now + TimeValue("00:00:01")
    ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, _
    DisplayAsIcon:=False
    ActiveSheet.Range("A1").Select
   
    ActiveSheet.PageSetup.Orientation = xlLandscape
   
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
   
    ActiveSheet.PageSetup.PrintArea = ""
   
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
       
       
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
   
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    ActiveWorkbook.Close False
   
    Application.ScreenUpdating = True
   
End Sub
Ir para o topo Ir para baixo
nuno




Mensagens : 62
Data de inscrição : 27/02/2013

Impresão de Form Empty
MensagemAssunto: impressao-Resolvido   Impresão de Form EmptyDom Set 01, 2013 11:56 pm

Obrigado pela ajuda!!!
Resolvido
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Impresão de Form Empty
MensagemAssunto: Re: Impresão de Form   Impresão de Form EmptySeg Set 02, 2013 12:59 am

Boa noite!!

Obrigado pelo retorno, que bom que resolveu seu problema:lol: 

Att
Ir para o topo Ir para baixo
Conteúdo patrocinado





Impresão de Form Empty
MensagemAssunto: Re: Impresão de Form   Impresão de Form Empty

Ir para o topo Ir para baixo
 
Impresão de Form
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Colocar foto no form- urgente
» Multipage, contador, e carregar dados da planilha no form
» Abrir planilha com um form fixo e os comandos que esta na planilha funcionarem.

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: