Results 1 to 3 of 3

Thread: Maximize Excel window

  1. #1

    Maximize Excel window


    I have a UserForm with a "Print" button. when i click it opens a print preview, but, because i minimized the Excel window at workbook open, with the code:
    Application.WindowState = xlMaximized 
    Formatting tags added by mark007
    it doesn't maximize the window and therefore i can't see the 'print preview'.

    Here is the code for the commandbutton:
    Private Sub CommandButton8_Click() 
    End Sub 
    Formatting tags added by mark007
    Function Time() 
        Application.OnTime Now + TimeSerial(0, 0, 0.5), "showForm" 
    End Function 
    Formatting tags added by mark007
    Thanks for any help!!

  2. #2
    2nd VP-Knowledge Base
    VBAX Master malik641's Avatar
    Jul 2005
    Florida baby!

    A few notes:
    1. TimeSerial's arguments accepts Integers (you have a double for the Seconds parameter). And by the looks of it, you don't need the Application.OnTime method if the form will show up in half-a-second.
    2. You don't need the function "Time" because that 1 line of code can be executed in your CommandButton8 procedure.
    3. For your main problem, you can check if Excel's window is minimized, then act appropriately.

    Example code:
    Private Sub CommandButton8_Click() 
        Call showForm 
    End Sub 
    Public Sub showForm() 
         ' Check if Excel is minimized
        If (Application.WindowState = xlMinimized) Then _ 
        Application.WindowState = xlMaximized 
         ' Print preview...
    End Sub 
    Formatting tags added by mark007
    Hope this helps

    New to the forum? Check out our Introductions section to get to know some of the members here. Feel free to tell us a little about yourself as well.

  3. #3

    Thank you soo much for you patiance!!!! I'll will try this and see what happens... But thank you for you answer and for giving a new look to the code. It looks much more good!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts