Print preview form

[Petepete11]

Hi, I have established a 'Me-PrintForm' command button which prints my form, however it doesn't first request a preview of what it looks like before printing and it doesn't fit on the page when printed. Is there a way to have a preview of what it looks like first before printing immediately.
Many thanks,
Pete

 

[Peter_SSs]

Not exactly sure what you are trying to achieve.

1. What do you want to happen if it doesn't fit correctly on the page? You did say "preview of what it looks like first before printing immediately" which seems to me to waste the print preview if it is going to print anyway. ??

2. If it normally fits on the page or only just misses, have you considered going in to Page Setup from the Page Layout ribbon tab and then on the 'Page' tab, use the 'Fit to:' option to ensure that it does always fit on the page?

Anyway, you might see if this is at all heading in the right direction. This code would go in the ThisWorkbook mode in the VBA window.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  Dim Resp As VbMsgBoxResult
  
  Application.EnableEvents = False
  ActiveSheet.PrintPreview
  Resp = MsgBox("Do you want to print?", vbYesNo)
  If Resp <> vbYes Then Cancel = True
  Application.EnableEvents = True
End Sub

 

[Petepete11]

Sorry I didn't explain it well.
I'm wanting to print just the UserForm, not the workbook/spreadsheet. Which the command button I've assigned works, however it prints the form straight away without asking for a print preview first.

 

[Peter_SSs]

I'm wanting to print just the UserForm, not the workbook/spreadsheet.

My mistake. You did say form but many forum members use that term when referring to their worksheets. I don't have a solution for you, sorry.