I was just reading an answer to a question re: printing a set area.
Dave Hawley mentioned the best method would be to set a "Custom View".
how to "call" a custom view from a Userform dropdown?
I need to print several "reports" which are seperate parts of the same sheet.
When I click the excel printing icon, I want a userform to pop up in which I make the choice for a certain customview that I build. This customview must then be printout. Note that I want to use the standard Excel print icon, not a custommade one in the worksheet. I figured out some code, but it doesn't work. For instance my if structure returns "false" even if I did click that commandbutton, see the code below.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Static PrintRequest As Boolean
formMyview.Show
If formMyview.CmdCancel= True Then
MsgBox "printrequest canceled"
Unload Me
cancel=True
Exit Sub
End If
If PrintRequest = True Then
Exit Sub
End If
If formMyview.CmdOk = True Then
For Each Myoption In frameViewoptions.Controls
If Myoption.Value = True Then..........................
I have a workbook with 3 spreadsheets. When I put ptotection on 2 of the sheets, the custom view will not work on the other. Any way to make the views work?
View 5 Replies View RelatedI am trying to set a custom view when exiting, but I keep getting runtime error 424 saying an object is required. I am attempting to unprotect the sheets, check the value of an option button, set the custom view based on that value, and then protect the sheets. Please keep in mind that the user may or may not be on the sheet containing the option button when exiting. Here is the code I am having trouble with.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call UnprotectSheets 'Unlock to set option button value
With Worksheets("Customer_Info")
If btnExistCust.Value = True Then
ActiveWorkbook.CustomViews("Sales_Exist").Show
Else
ActiveWorkbook.CustomViews("Sales_New").Show
End If
End With
Call ProtectSheets 'Call the sub before closing
End Sub
I need to create a macro that whenever the user clicks the restore down button it will not restore down, but either do nothing, or make the application display full screen. The following code runs when the workbook opens and whenever a different sheet is activated and I would like it to run when the user clicks the restore down button.
Private Sub Workbook_Open()
Application. ScreenUpdating = False
Application.DisplayFormulaBar = False
Application.ShowWindowsInTaskbar = False
Sheets("01").Select
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With............................
if there's a way to either define what columns or rows are printable or to somehow leave columns (or rows) as visible within the print area but omitted from printing as if they were hidden.
In my CAD package I can simply elect to have certain collections of information "non-printable", is there any way I can do this with columns without having to rely on people managing to laboriously (sic) hide and unhide columns either side of printing a document.
I have a large spreadsheet from which I need to create separate Reports by hiding various rows and columns. I have followed instructions for creating a couple of Custom Views (View tab, Custom Views, Add, Inserted Name, OK, Saved the document) but nothing happens apart from getting the message "Some view settings could not be applied". In fact none of the view settings were applied.
View 1 Replies View RelatedI have a very wide sheet in which I have hidden and saved seven views.I am using it for a very long time but when i did some edit work in the 'full' view,the other views are not showing. In stead I am getting the messages "cannot shift objects off sheet" and "some view settings could not be applied".This is very frustrating since a lot of patience was tested while making this wide data.
View 2 Replies View RelatedI am generating the chart from the following code but when it prints i.e (Mode#1 or 2 or 3 etc....) with type i.e. (GL_Weld or Bend or any other text). Printing as i.e. (Mode#1Bend or Mode#2GL_Weld). I would like some space in between (Mode#1 Bend) or (Mode#2 GL_Weld) or even put it in next line underneath it ( Mode#1 Bend).
How do i incorporate and space or enter next line? Code as follows:
I’ve created a worksheet containing many drop down lists that form an inventory of household effects. Once selected, I’d like to be able to view/print the selected options and quantities separately on one A4 page.
I don’t want the separately viewed/ printed page to contain anything other than the selected options. The problem I’m having is to arrange this new page as a contiguous list.
i am trying to use this code to view the workbook (WK) in the userform named WK
it can not reconize .spreadWK
Private Sub UserForm_Initialize()
Me.SpreadWK.Cells.Range("A1:E10").Value = ThisWorkbook.Worksheets("WK").Range("A1:E10").Value
End Sub
however this is saying that it can not reconize
.spreadWK
Ive searched for a solution around this site and it all leads to a dead end. I have a userform created in Excel, where I want to import a existing worksheet from another workbook and display it on the user form, so the user can edit it. I have tried using the Office SPreadsheet 10.0. By copy the excel file contents and pasting it into the spreadsheet cells, but PasteSpecial doesnt work so all the formating is out the door.
View 3 Replies View RelatedWith page breaks in Excel, is it possible to have different pages span a different number of columns?
Right now, I have my page breaks laid out so I've got 3 separate pages. Currently, they are each 30 rows in height, and 30 columns in width.
However, I want the first one to be 20 columns wide, the second to be 30 columns wide and the third to be 40 columns wide.
If I try and drag the vertical blue bar, I adjust the column span for all 3 pages. I need a way to drag the vertical blue bar for each page separately.
what I would like to do is view a cell result in my userform with out deleting my formula
It works perfect from the excel side but I just cant get it right from the user form side
Ok so cell D6 contains a vlookup formula. I want the vlookup result to appear in my userform. I can get this to work but it overrides the vlookup formula with the result. This means that when I go to use it again it just shows the same result.This is what I have:
Cell D8 has a Combobox with a list of names to select from
this is the formula in cell D6 =VLOOKUP(D8,B107:I754,2,FALSE) This retrieves the selected customers account number from the combobox. I need my userform to display the account number with out erasing the formulas because I will need to search for more account numbers after.
I have named the textbox in my userform Customeraccountb
I need to select a print area that includes all rows to the last row with data in column A. What is the proper code for this? I tried the following (shot in the dark), and of course it doesn't work.
Sub Print_()
ActiveSheet.PageSetup.PrintArea = "A( Cell((65536).End(xlUp)):X1"
ActiveSheet.PrintOut
End Sub
I Have a Userform which Have My Data i Print User Form Using Print Command Button And My Code Is
[Code] ......
But Its Printout Whole Form I only Wants To Print contents of Text Box's Or only Text From Userform TextBox. How To Print out Only Content of User Form Not The Whole Form ...
how to customize the userform with the background like Ivan's userform:
View 3 Replies View RelatedHow do you make it so when a user form is open you can still interface with the backround (the Spreadsheet) For example like the Microsoft Tool Boxes.
Right now, when you use the userform you cn only select things on the userform. I want to use the userform as "quick view" of the spreadsheets main Values.
I was wondering if this code is supposed to make the icon on the taskbar change to the custom icon as well?
If not, what would need to be added or changed to make it so?
It changes the Userform Icon without issue and adds the userform to the taskbar, but it is not updating the icon on the taskbar.
On the attached example, there is a user form with a text box and an enter button.
What i want, is when i press the enter button, the value in the text box goes into cell B2 on sheet1 in the format of "?/???".
Im using the following code on a User login userform. This code is for the Login command button to access the workbook (the user clicks on it after entering there username and password).
For some reason if the password is numbers only it just returns message box "Incorrect password, try again."
As soon as I put a single letter into the password it works fine,
[Code]....
I have this code, which does what i want it to do but i want 5 userforms printed in a4 and 1 in a3, also i want to print them all in colour, as they contain graphs, and visually its poor when in black and white
I added in black and white = false, but it still prints black and white, i tried size = A3 and that wouldnt work either
[Code] .....
I have a number defined print ranges. I wish to create a list of all the named print ranges and then select certain ranges to print in a single document. I have been told can use something called a "userform".
View 4 Replies View Relatedwith printing a long userform? Unfortunately, the me.printform does not print out the whole form. It gets cut off because my form is too long and slightly too wide. I also tried to do a print screen, but unfortunately, because my form is too long, it will only do a snapshot of a portion of the form. In my case, on the bottom as that is where I have placed my command button.
Does anyone know how to bring the whole form out to excel or word? I don't mind doing that as long as I can print out the whole form?
On my excel 2007 UserForm I have a CheckBox with 18 possible or multiple selections of reports (word.docm)
what I would like to do is, when selected they would be sent to printer.
Here's what code I have so far, something is missing, I'm not sure
Private Sub CommandButton2_Click()
For x = 1 To 18
If Controls("checkbox" & x) Then
Select Case x
Case x = 1
worddoc = ActiveWorkbook.Path & "Inspection ReportsCover Page.docx"
Case x = 2
worddoc = ActiveWorkbook.Path & "Inspection ReportsClient Information.docx"
Case x = 3.....................
Is there a code to set the printing of a userform to landscape. The following code is good for a worksheet but doesn't work for a userform.
ActiveSheet.PageSetup.Orientation = xlLandscape
The following adaption of the above brings up an error.
Userform1.PageSetup.Orientation = xlLandscape
I have developed an extensive program running on excell but with the user only seeing userforms. I would now like to build in a "print screen" button, but have no idea how to do this.
What it needs to do is capture the userform and all its entries (as it is displayed on the screen) and send this to the printer to be printed as a picture.
I am assuming that there must be code available so that when ever the user clicks this button, the standard windows (or excell) print screen appears from which he will be able to choose the printer etc.
I have created a userform which user will fill in, but have come up against usual problem of not being able to print a copy. It has scroll bars so can't just use ctrl + alt + print screen method.
Thought i could get around problem, by recreating the form on worksheet by using activeX labels. I use a basic loop that goes through each of the required controls on the userform and exactly recreates it on the worksheet, using Active X Labels.
This all works fine, but when it gets to end of macro, the userforms just disappears and macro stops. No error message!! Also during the process of creating the axtive x labels i can't step through in VBA as it says its uable to break at that point!!
Private Sub NoPRINTBLANK_Click()
Dim percent As Integer
Dim Olob As OLEObject
Set ctrl = TICKSHEET.Controls
pgs = TICKSHEET.COMPS.Pages.Count
pgs = pgs - 1
For z = 0 To pgs
percent = (z + 1) / (pgs + 1) * 100 ' this is for a progress bar on sheet
progresser percent ' this runs small sub to alter progress bar
TICKSHEET.Repaint
Worksheets("SHT" & z + 1).Activate
ActiveSheet.OLEObjects.Delete...................
I know you don't usually print userforms & when you do I know the code, however, how can you print one page of a multipage userform when the page has a vertical scrollbar & you want to print the whole page, not just what is showing on screen?
View 2 Replies View Related1/ I enter manually a list of serial numbers in a column
2/ the latest cell gives the number Y (count) of data entered
3/ I need a macro to perform the following on a Form when I press a button:
a. the form is printed Y times and every times:
b. "Page x of Y" where x increments (Y is the value given by the item 2/)
c. the serial number cell shows values from the list one by one (item 1/)
So, that means I will have Y copies of the form where the page number starts at 1 and ends at Y, and a Serial number linked to the list (page 1 shows SN from line1, Page 2 SN from line 2, ... Page Y SN from line Y).