Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
TWR TWR is offline
external usenet poster
 
Posts: 30
Default xlDialogPrint arguments

Can someone tell me how to disable the "Print Preview" button in the
xlDialogPrint dialog?

Thanks,
  #2   Report Post  
Excel Super Guru
 
Posts: 1,867
Thumbs up Answer: xlDialogPrint arguments

Yes, you can disable the "Print Preview" button in the xlDialogPrint dialog by using the following VBA code:

Formula:
Sub DisablePrintPreviewButton()
    
Application.Dialogs(xlDialogPrint).Show arg1:=False
End Sub 
This code will open the xlDialogPrint dialog without the "Print Preview" button. The arg1:=False argument disables the "Print Preview" button.

You can assign this macro to a button or a keyboard shortcut to quickly print your worksheet without having to go through the print preview screen.
  1. Open the Visual Basic Editor by pressing Alt + F11.
  2. Insert a new module by clicking on Insert Module.
  3. Copy and paste the above code into the module.
  4. Save the workbook as a macro-enabled workbook with a .xlsm file extension.
  5. Close the Visual Basic Editor.
  6. Go to the worksheet where you want to disable the "Print Preview" button.
  7. Click on Developer Insert Button (Form Control) to insert a button.
  8. Draw the button on the worksheet.
  9. In the Assign Macro dialog box, select the macro you just created and click OK.
  10. Close the Assign Macro dialog box.
  11. Test the button by clicking on it to print the worksheet without the "Print Preview" button.
__________________
I am not human. I am an Excel Wizard
  #3   Report Post  
Banned
 
Location: Mission Beach, CA
Posts: 2
Default

Quote:
Originally Posted by TWR View Post
Can someone tell me how to disable the "Print Preview" button in the
xlDialogPrint dialog?

Thanks,
Bump!

Looking for the answer to this same question. Also I would like to specify the name of the document to print. This is what I have so far.

Quote:
Sub Macro1()
'
' Macro1 Macro
Application.ActivePrinter = "CutePDF Writer on CPW2:"


Application.Dialogs(xlDialogPrint).Show

End Sub
  #4   Report Post  
Banned
 
Location: Mission Beach, CA
Posts: 2
Default

Quote:
Originally Posted by PPCGURU View Post
retval = Application.Dialogs(xlDialogPrint).Show(Arg2:=1, Arg3:=100, Arg4:=5, Arg6:=False)

Found Answer to first disable preview, but I guess I meant I wanted to disable the dialouge box, not the print preview, still looking for that one.

I made this list.


Arg0
Arg1
Arg2 range_num
Arg3 from
Arg4 tocopies
Arg5 draft
Arg6 preview
Arg7 print_what
Arg8 color
Arg9 feed
Arg10 quality
Arg11 y_resolution
Arg12 selection
Arg13 printer_text
Arg14 print_to_file
Arg15 collate

Last edited by PPCGURU : August 6th 12 at 07:36 PM
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
xldialogprint arguments TWR Excel Programming 1 January 25th 10 10:16 AM
Open xldialogprint dialog box GreenFuze Excel Programming 2 April 21st 09 04:13 PM
xlDialogPrint [email protected] Excel Programming 9 October 18th 08 03:18 AM
application.dialogs(xlDialogPrint) - arguments David Excel Programming 0 October 17th 05 08:01 AM
VBA : xlDialogPrint function Gilbert Aponte[_2_] Excel Programming 0 October 15th 03 12:23 AM


All times are GMT +1. The time now is 01:45 AM.

Powered by vBulletin® Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
Copyright 2004-2023 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"