I have a (semi-inherited) macro that prints different pages of a workbook, based on whether and what their entries are. One of the pages contains a text box, where users will enter different lengths of text. When the macro runs, it prints right the first time but also "resizes" the text box so that future print attempts only print part of it.
I put "resize" in quotes because the text box does not appear to change shape. However, when I look at its properties it suddenly says it is much smaller than it was before (and still appears to be).
I have a (semi-inherited) macro that prints different pages of a workbook, based on whether and what their entries are. One of the pages contains a text box, where users will enter different lengths of text. When the macro runs, it prints right the first time but also "resizes" the text box so that future print attempts only print part of it.
I put "resize" in quotes because the text box does not appear to change shape. However, when I look at its properties it suddenly says it is much smaller than it was before (and still appears to be).
FWIW, I'm using Excel 2003.
Here's the code in question (the problem is on the "narrative" page):
Sub CLCMprintall() ' prints all pages (with data) on the CLCM spreadsheet Dim x, a, b, c, d, e, f, g, h, i As String Dim y, z, q As Integer
ActiveSheet.Unprotect Password:="***"
'notes active cells on each sheet to return cursor there afterwards. x = ActiveSheet.Name Sheets("page 1").Select a = ActiveCell.Address(True, True) Sheets("narrative").Select d = ActiveCell.Address(True, True) '(repeat for other worksheets - also sets values for Loan2Amt, Q & Z, 'which govern whether other unrelated sheets need to be printed.) ' 'tests whether there is text in Overflow sheet and sets print area if there is If q 0 Then Call OverflowPrintArea.............
I am trying to print a range that falls just outside of a normal A4 size. Is there a way of scaling this range to fit the page. Withough changing the column sizes before printing(each column is diffrent size). Or will i need to load the column sizes into a array and resize for the print then back to original size from array.
I would like a macro to print 2 sheets in a workbook. I can write the macro that will select the sheets I want, but I don't want it to just go and print because depending on if the user wants it printed in color, b&w, etc.
they have to choose a different color. What code do I use to open the print dialog box?
I am making custom time sheets to suit our agriculture business - these excel sheets get sent out to the different farm managers who send back in staff times.
This code below is brilliant and works perfect for our needs. However I need to be able to emailPDF the sheets not print.How / where do I change code so the selected sheets go to Save & Send via email as a PDF instead of going straight to the default printer .( hard copy )
VB: Option Explicit Sub SelectSheets() Dim i As Integer Dim TopPos As Integer Dim SheetCount As Integer Dim PrintDlg As DialogSheet
when i use a macro to add a comment to one of my cells, if i put in too much text the box doesn't resize itself and you can only read part of the comment. how to resize the comment box to the size of the text i put in?
I want a dialog box to have a label box reference a cell within a work sheet. This referenced cell contains a formula linked to other cells so it will change value.
Need to correct code to resize all visible rows on a sheet based only on the text in the visible columns. I have tried the below code but when it resizes it is using the largest amount of text in the rows including that in the hidden columns.
I have a text box that I couldn't get to print properly on one page of A4 (margins). The text box then grew beyond an A4 sheet of paper and I made two text boxes. I've managed to get the first text box to print, but I can't tell Excel how to print the second text box.
I have a problem when I want to print, it will only print a set area. How to I make it print everything, so it prints everything till the last letter on the page?
Instead of me saving a blank text file in the folder where the workbook resides, I would like it incorporated in the macro if possible. The name of the text file would be the value (string?) in cell B5.
Sub MakeTextFile()
Sheets("Sheet1").Select
Dim txt As String, r As Range Dim Answer As String, MyNote As String MyNote = "Do you have an empty text file ready in the" & vbCrLf & _ "folder where this workbook resides?" & vbCrLf & _ "This text file needs to be named" & vbCrLf & _ "ABCD.TXT"..........................................................................
Is it possible to set a print range according to Text in cell? For instance I want to VBA to print A1 to P?. The range would stop depending on the data in Column B.
Column B consists of either "CON" or "CP". I want the print range to extend until the last "CON", it should stop before the "CP"
I am trying to print from excel a text file of a sheet data, creating the text file works but I need to have it encoded as UTF8?? Here is the code I have to print.
[Code] .....
Not sure if I need to add something to this or do I have to open the text file in Notepad and do the convert to UTF8 there?
I am currently working on sheet that i need to have print out user names and random passwords for as many people that entered on the sheet to a text file for email. I am running into a few issues.
1. When i try to print to a .txt file of the text from column G on sheet 'Review and Generate', all the text appears on one line. I have been trying to use the Char(10) to create line spaces, but that has not worked out for me. How do i get excel to export text from a cell to a .txt file with correct line spaces?
2. I have a random password function running on column F, however i am trying to get it only produce one result and not keep calculating random values. How do i have the cell calculate only once?
I am trying to write a code to resize every second row between the range of A5 and A500 (Starting at A5) to 12.75 but am unable to find a simple loop to do this.
I trying to out together a small script which performs the following:
-Select cell B7 and offset this by 12 columns and one row -Resize this by 14 columns, then -Apply the font format to the selected range from the first to the last row
The code below is what I've put together so far, and although this runs without issue, it's not applying the formatting.
I have 3 workbooks, the first one contains the data and the second is the “Table1” containing "Normal records" and the third is the “Table 2” containing only "900 Records". Tables 1 and 2 will be linked to Access…..
Here’s my issue….
From workbook 1, I would like to copy data from certain cells that contain data to Table 1
From workbook 1, I would like to copy data from certain cells that contain 900 service records data to Table 2
In workbook 1, I have identified which information i want to keep by using the following formula,
Fa is a code that searches, once it's found something, it then puts that one cell.value into Cells(c,r). it then moves on until the next cell found with the required contence. I need it to put that one cell, and the next 4 columns along side it starting in Cells(r.c)
The problem is, I keep getting a global error. I am sure I have done something like this before, but cannot find it, or remember how i did it.
She has a spreadsheet created in Excel 2003 (she is still using 2003) which contains an image with a textbox in the top left corner then all other cells contain data.
When user prints this spreadsheet all that prints is the image and the textbox.
I have cleared the print area reset the print area removed the picture (prints only the text box)
and none of these changes have changed what prints.
I have checked all printer setting and these appear normal.
previously user could print this spreadsheet fine and all other worksheets in the workbook print fine as well.
other users are still able to print to the same printer correctly from this spreadsheet.
stretch" the userform to fit the height and width fo the screen. I dont want to simply change the height and width of the userform, i want the controls within the userform to stretch with the userform so that it looks the same, just fullscreen. this is what ive found by googling:
VB: With Application .WindowState = xlMaximized Zoom = Int(.Width / Me.Width * 100) Width = .Width Height = .Height End With
however, this just stretches it to match the width of my screen, but doestn consider the height, so that if i have a widescreen vs a square screen it will cut off the bottom of my userform. It would be great if there was a zoom type featur that zooms the vertical and horizontal dimensions seperately... more like a stretch than a zoom.
I need to make rows expand to fit the largest text box within that row. I found the code below online, it works perfectly on the spreadsheet it came on but it doesn't work on my spreadsheet.
Dim cr As Range Dim ht As Single Dim mht As Variant Dim cn As Integer
1.My macro code to insert picture from C:pictures to worksheet in colum B,but the insert pictue are very big. how can it is automatic resize with autofit in the height of the column B when i click the insert button.
2.I need some code for the delete button. if I need to delete some picture,when the delete button is clicked , the input box prompt for key in the picture name to delete. if i key in the pictue name , eg.pictue2 , so the name of pictue2 in the column A and the pictue2 in the column B is deleted.
