I'm just looking to prevent users from using the print screen or the alt print screen buttons on the keyboard. I have this script that works if I use "39" (Right Arrow)but wont work if I use "42" (Print Screen Button).
View 5 Repliesmacro minimizes excel takes a print screen of the application behind excel then pastes it in a word document then maximizes excel screen again
View 9 Replies View RelatedCode:
Private Sub CommandButton2_Click()
Me.PrintOut
End Sub
Is there a VBA that will print out the screen in landscape? The above code seems to only print in portrait.
I would like to emulate hitting the Alt+Ctrl+"Print Screen" button on the keyboard with the following code. I know there are some restrictions around using the PrintScreen with the SendKeys, but I'm hoping I can still figure out how to make this work.
Following is the first part of a larger macro I've set up. If I can just get this to work, that would be perfect.
Sub PrintTheScreen()
Application.SendKeys "^%" & "PRTSC"
End Sub
I have a WYSIWYG problem: what I see on the screen is NOT what I get out of the print job.
I commonly have the problem when working with Excel objects (any kind of shape, text box, line, graph) in that the layout looks great on the tab that I created, but when I go into PrintPreview or actually print it out, the shapes don't quite align with what I had built in the tab. Where I thought I had lines joining, the print out shows them crossing at other points. If I then go back to the tab and look at the layout on the regular screen, it looks fine.
This problem can be easily understood if you try to create a triangle by drawing three lines (non-overlapping lines that cross only at the vertices). Note that the lines either prematurely cross, or don't intersect at all when you print it out.
THis problem is even magnified when using the camera function to take a "snapshot" of a graph or other objects. In fact, it has the tendency to even "mess up" the graph's formatting, regarding the arrangement of titles and axes (often making them overlap).
Is there a feature or VB code that will take a screen shot in excel for the sheet that I have active?
What I would like to do is run a macro that does a few things, then takes a screen shot and bundles it up in an email to send (Outlook on Exchange). Since the report is 30 MB it cannot be emailed and taking the time to compose a report w/screen shot takes too much time.
On a spreadsheet in excel from office xp, is it possible to display a row on the screen, but when you print the sheet it doesn't get printed? How do I do that?
I tried hiding the row, but the admin wants to be able to see it on screen and complained too tedious to unhide it on screen then hide it for printing.
I have never written macros for excel so not sure if there is a solution there, or if it can be done another way.
I also thought we could have the data from the row in another sheet that doesn't get printed, but she (the admin) preferred the hide/unhide solution.
I have a project report, which is user-configurable, allowing the user to customise the data that is displayed based on a number of parameters.
To ensure the report always prints neatly (the number of visible columns and rows varies, depending on the above parameters), so I have a macro that dynamically sets the print area of the worksheet.
At present, I call the macro from the workbook.beforeprint event, which works fine in terms of printing. Ideally however, I would like the macro to be called when CTRL+P is first pressed - i.e. the resulting 'print screen', containing a preview of the print out should reflect what will subsequently be printed, when the 'Print' button is then pressed.
I am not sure if this makes sense (Excel 2010 and 2013 are different from previous versions).
I have place a camera-picture of a table on the right side of a chart. On the screen it looks great! (See below - with some redaction)
Problem Example.png
.... but when I print it the table expands off of the side of the chart. Scale is 100%, zoom is 100%, Excel 2010 (See below - with some redaction). Whether or not I have a print area does not seem to make a different in the problem. Also, it appears that this happens with any shape I put in that place, it's not specific to the camera tool.
Problem Example_Print Preview.png
I've have a tool/code that takes the screen prints of the active window (when I press F9) and pastes it in a word document.
But whenever I do copy some text or any other image and when I press F9 to take the screen print of the active window. I get the text pasted into the word, this is because the clipboard content has text first and then the screen print of the active window.
Instead When I press F9, I wanted the below to happen
1. Content from the Clipboard should be cleared
2. Take the screen print
3. Paste it in the word document.
Note: My tool/code already does 2 and 3. Looking for 1 alone, ,
I am having trouble disabling the "Preview" button when calling Application.Dialogs(xldialogprint) in XL2003. I have an xlSheetVeryHidden worksheet containing a form which is made visible programatically when the user wishes to print a copy (code below). I want the user to be able to have access to the functionality of the xlDialogPrint dialog (i.e. select desired print destination, number of copies, pages per sheet etc.) but I also want to prevent them modifying the page setup of the protected worksheet by initiating a preview from the print dialog.
Private Sub btnPrintReturnForm_Click()
wbkRUSC.Unprotect sysPass 'unprotect workbook to enable changes to sheet visibility
' (sysPass is project constant string containing password)
shtStaffForm.Visible = xlSheetVisible 'make staff form visible
shtCalc.Visible = xlSheetVeryHidden 'hide main calculator in case user gets smart and hits..............................
I have 2 workbooks open. In the workbook that I am working in I run a macro from a userform to copy a worksheet from the other workbook that is idle in the back ground. I also display another user form that says "please wait" while the macro is running.
The problem I have is even though screen updating is set to false the screen switches over to the other workbook while it is copying the desired sheet and switches back to the workbook I am copying to after the macro completes. Also the "Please Wait" userform disappears while the other workbook is displayed and reappears when the initial workbook returns.
Below is my code which works without issue but perhaps there's a better way to copy between workbooks that would prevent the screen changes?
[Code] ........
is there anyone who knows a sophisticated way to hide the application
while showing a little splashscreen on startup
y already have this code but it causes a flickering, not very nice
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.Visible = False
frmShow
Application.Visible = True
Application.ScreenUpdating = True
End Sub
is there maybe someway to get into the clickevent off the excel.xls file
i like to block scroling the screen upto A1:A31?
View 5 Replies View RelatedI have an excel workbook that I would like to
a) appear more app-like, and
b) show more data in the available space.
I do not want to go too elaborate by hiding (remembering and restoring) control bars and I reckon the View Full Screen is pretty much okay for my purposes.
I am currently invoking View Full Screen on Workbook_Activate but hitting the ESC key returns to normal view. I can already see my users hitting the ESC key for various reasons and ruining my master plan.
Is there are any way to prevent unintended ESC from Full-Screen or otherwise lock in the full-screen mode until revoked intentionally by macro (shortcut)?
I have an excel workbook that I would like to
a) appear more app-like, and
b) show more data in the available space.
I do not want to go too elaborate by hiding (remembering and restoring) control bars and I reckon the View Full Screen is pretty much okay for my purposes. I am currently invoking View Full Screen on Workbook_Activate but hitting the ESC key returns to normal view. I can already see my users hitting the ESC key for various reasons and ruining my master plan. Is there are any way to prevent unintended ESC from Full-Screen or otherwise lock in the full-screen mode until revoked intentionally by macro (shortcut)?
I'm working with text boxes in Excel that have hyperlinks attached to defined names on a worksheet. Basically just to navigate around a large sheet.
They work fine, but when the mouse is hovered over the text box it automatically displays the address of the defined name, which looks messy and I want to get rid of it.
I have tried inserting a single space in the screen tip box, but that displays a small rectangular box. I have also tried "" hoping nullstring maybe interpreted as not to display, but it instead displays the speech marks.
Has anybody done this before? I've seen it done, but I have no idea how the model creator did it.
I have created a spreadsheet and wanted to originally see if I could save as a separate format (that makes it more like an application than an Excel spreadsheet). Having investigated, I found that full screen mode pretty much does what I want, however you can restore the menus by pressing ESC or selecting restore down. Is there a way of preventing users from exiting full screen mode, I could add a close application button for them to use instead.
View 3 Replies View RelatedI have a VBA code that copy data from multiple files into my workbook.
I find the first file, copy the ranges I need into my workbook and continue to the next file until all files are done.
The copy operation in each file is - row by row - because I need to ask questions about each row.
As you understand - what the user sees is a flickering window because I activate the source workbbok -> copy the data -> activate this workbook-> paste the data.
I want to avoid the flickering.
An acceptable solution could be to generate a pop up message box that will say "data is being copied. Pleasd wait while operation is completed". BUT - I don't know how to identify that the action is done and message box can be closed.
Have working routine with combobox lists which are split into 'beverages of sorts' - sent to textbox and from there put into columns of type/variety in other worksheets
All working fine apart from repeated 'hits' of the command buttons to activate the data movement
Have Excel2003 on XP Pro and have been trying to use the application.onkey sub to try and introduce the 'enter' key to try and make things easier
but......not winning (aaaagh)
code being used just now is
Sub commandbutton1_click()
Sheets("invsales").Activate
Worksheets("invsales").Range("value").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TextBox6.Value
End sub
As you see from 'textbox6' - I have a few of these for different beverage types and costs
Would be grateful for any help in introducing an 'ENTER' keystroke into the code somewhere.....to make it that bit more 'easier'
I was looking at Colo's website for the Application.SendKeys method, http://puremis.net/excel/code/039.shtml ,so that I can speed up a page/print setup macro that I have.
I was partially successful in setting this up, but I did notice that there was no argument number in that method for setting up the "Fit to x Pages Wide" and "y Pages tall".... I really need that functionality....
I saw something here that is supposed to get the zoomfactor : http://groups.google.com/group/micro...8d0?scoring=d& but I can't seem to incorporate it into my code so that it works.
Is there an Argument I can set up to get those?
Here is my code so far:
Sub ElecECNPrint()
Application.SendKeys "{ENTER}", False
Application.Dialogs(xlDialogPageSetup).Show _
Arg1:="", _
Arg2:="", _
Arg3:=0.25, _
Arg4:=0.2, _
Arg5:=0.42, _
Arg6:=0.39, _
Arg11:=xlPortrait, _
Arg12:=xlPaperLetter, _
Arg13:=79, _
Arg17:=600
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
I want to change Arg13:=79 to Arg13:= Zoomfactor, but I just ain't cutting it as each page is a different size and I am running this from Personal.xls ....
i have found this code on the net but can only get the control sheet to work when i run macro "PrintSelectedSheets" i get a run time error 1004 application defined or object error i have put the code in the workbook object but having problems, it seems to be because the sheets that i am trying to print are hidden can this code be edited
Sub PrintSelectedSheets()
Dim i As Integer
i = 2
Do Until Sheets("Control Sheet"). Cells(i, 1).Value = ""
If Trim(Sheets("Control Sheet").Cells(i, 2).Value <> "") Then
Sheets(Sheets("Control Sheet").Cells(i, 1).Value).Select
'ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
i = i + 1
Loop
End Sub
This code seems to work ok
Sub CreateControlSheet()
Dim i As Integer
On Error Resume Next 'Delete this sheet if it already exists
Sheets("Control Sheet").Delete
On Error Goto 0...........................................................
I have a macro that asks the user what pages they would like to print on a particular sheet. In the example below, a button will be assigned to pages 1-5 on a sheet and thus the user has the option of printing from page 1 up to page 5. Any page number outside this range will result in an error message and the user will be asked to re-enter the end page number. This is the code I pulled from this forum and partially modified:
View 4 Replies View RelatedAll sheets are basically the same except some minor values, names and addresses. There is one page per sheet and all pages are in portrait format. The print preview shows all the pages in order but when I print it, it makes multiple print jobs of 1 to 2 pages each and prints them all out of order. I don't know why it is splitting up the workbook or why it changes the order. I print and reorder these weekly, which is a major pain. It comes out in the same order each time but it is the wrong order.
View 1 Replies View RelatedI am trying to have a file print in legal size if I have 56 lines filled in
otherwise print in regular letter size. Does anyone know how to write this
in VBA.
I've found some code which works to print certain pages with value in cell A1 but I need to print dynamic ranges on some of the sheets as they will have filters on so the rows ranges will be different each time.
So far this is what I have but the dynamic range part is not working:
VB:
Sub Print_All_Worksheets_With_Value_In_A1()
Dim Sh As Worksheet
Dim Arr() As String
Dim N As Integer
[Code] ....
Since upgrading to Windows 2007 (I was already using Excel 2007) I am having issues with the content in the cells on the worksheet not appearing the same on Print Preview and when I print. On the worksheet the cell show to be at the best fit both horizontally and vertically. When I look at the contents under print preview, the contents are squashed from the top and cut off from the left. This happens whether I have the format in Top or Central align and is even worse if I use Bottom align. It is also somewhat worse if I have thickened boarders.
I am using TrueType Fonts.
Using Excel 2010: I have 2 rows (A4:J4 & A5:J5) selected as print titles that I would like to be printed at the top of selected pages. Currently, my document is 3 pages long, and I would like to have the print titles only applied to the first 2 pages. More data will be added in the future on pages 1&2 but the last page (whatever page number it ends up being) should not contain the selected print titles.
View 2 Replies View RelatedI just converted from Excel 2003 to 2007 and print previewed a worksheet and find a tiny image with a small portion of the print area. When I look at the sheet in page break preview mode, I see the 8.5 x 11 sheet broken up into approx 77 smaller sheets. When I try to move the page breaks to include the whole sheet it states the change cannot be made as it will result in an image less than 10%. I have attached two images - the first shows the print preview I get, and the second show the multiple pages when I view in page break.
View 4 Replies View RelatedI have a pretty large spreadsheet set up that invoices our clients. A few tabs in the front allow us to globally invoice if we did certain services for all clients and then we can also go into each tab and invoice each client for specific services performed on their property. Some invoices are two pages long and other may be up to seven pages long and anywhere in between... So that's the first issue, how do you find how many pages to print and then set the print range for each invoice.
The second issue centers around being able to print all the invoices at one time.
The spreadsheet is set up in this manner: A recap sheet we print to check off that each invoice was printed; an IIF statement to get the Excel info into QuickBooks; a template to set up each invoice's information with dates, dates services were performed,etc.; then there are five Global billing tabs where I can invoice all accounts globally or by their type of account (Saturday or Sunday open, 24/7 etc.); then we get into the tabs for each account. Each account has its own tab with an invoice loaded inside where we can itemize the services they received. Inside all these individual account tabs we have set up 'Zone' tabs where we can invoice all the clients we set up within a zone. There are about twenty of these tabs. Then at the end I have a few more tabs that aren't used any longer, there are about ten tabs there...
Is there a way I can hit Print and get all of my invoices to print out at one time versus having to go into each and every tab, set the print range, and then hit Print for all 250ish invoices?
This is the biggest complaint I have right now about the invoicing program I have set up...