Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Print macro won't work
Can someone please troubleshoot this code for me? For some reason,
when I click on the autoshape that is assigned this macro, the printer will spool however it does not print. The Deskjet is not my default printer (because of some error with MS Word 07 that causes Word to stop working) if that helps. Code is below. Thanks. Sub PrintSheet() ' ' PrintSheet Macro ' ' Dim resp As Long resp = MsgBox("Printing will clear all data. Do you still want to print?", vbYesNo) If resp = vbNo Then Exit Sub Application.ActivePrinter = "HP Deskjet F2100 series on Ne04:" ActiveWindow.SmallScroll Down:=-36 ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" Range ("A5:D5,E5:G5,H5:I5,A7:D7,E7:G7,H7:I7,G9,H9,I9,G10 ,H10,I10").Select Range("I10").Activate ActiveWindow.SmallScroll Down:=16 Range( _ "A5:D5,E5:G5,H5:I5,A7:D7,E7:G7,H7:I7,G9,H9,I9,G10, H10,I10" _ ).Select Range("I10").Activate Selection.ClearContents End Sub |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Print macro won't work
This prior post may help.
The *fast* way to do page setup in Excel is to use the XLM (Excel 4 Macro Language) syntax (PAGE.SETUP) and call it using Application.ExecuteExcel4Macro like this: Application.ExecuteExcel4Macro "PAGE.SETUP(arg1, arg2, arg3, ..., argn)" The arguments are documented in the Excel 4 help file which, if you have Excel 2000, is a download. You can get it from: http://officeupdate.microsoft.com/20...ls/xlmacro.htm It installs, among other things, a chm (compiled HTML help) file on your machine that documents all of the XLM functions. Below, for convenience sake, I have included the help file page for PAGE.SETUP. Hopefully, this post can put this topic to rest...(In case you were wondering, there are *no* "pure" VBA-based workarounds to the performance of page setup, period. Rob, Robert and other MVPs, step in and correct me here if I am wrong..) Tim Tim Tow, CPA MCSD Microsoft MVP - Excel Applied OLAP, Inc Help file section: ================================================== ======================= PAGE.SETUP Macro Sheets Only Equivalent to clicking the Page Setup command on the File menu. Use PAGE.SETUP to control the printed appearance of your sheets. There are three syntax forms of PAGE.SETUP. Syntax 1 applies if a sheet or macro sheet is active; syntax 2 applies if a chart is active; syntax three applies to Visual Basic modules and the info Window. Arguments correspond to check boxes and text boxes in the Page Setup dialog box. Arguments that correspond to check boxes are logical values. If an argument is TRUE, Microsoft Excel selects the check box; if FALSE, Microsoft Excel clears the check box. Arguments for margins are always in inches, regardless of your country setting. Syntax 1 Worksheets and macro sheets PAGE.SETUP(head, foot, left, right, top, bot, hdng, grid, h_cntr, v_cntr, orient, paper_size, scale, pg_num, pg_order, bw_cells, quality, head_margin, foot_margin, notes, draft) PAGE.SETUP?(head, foot, left, right, top, bot, hdng, grid, h_cntr, v_cntr, orient, paper_size, scale, pg_num, pg_order, bw_cells, quality, head_margin, foot_margin, notes, draft) Syntax 2 Charts PAGE.SETUP(head, foot, left, right, top, bot, size, h_cntr, v_cntr, orient, paper_size, scale, pg_num, bw_chart, quality, head_margin, foot_margin, draft) PAGE.SETUP?(head, foot, left, right, top, bot, size, h_cntr, v_cntr, orient, paper_size, scale, pg_num, bw_chart, quality, head_margin, foot_margin, draft) Syntax 3 Visual Basic Modules and the Info Window PAGE.SETUP(head, foot, left, right, top, bot, orient, paper_size, scale, quality, head_margin, foot_margin, pg_num) PAGE.SETUP?(head, foot, left, right, top, bot, orient, paper_size, scale, quality, head_margin, foot_margin, pg_num) Head specifies the text and formatting codes for the header for the current sheet . For information about formatting codes, see "Remarks" later in this topic. Foot specifies the text and formatting codes for the workbook footer. Left corresponds to the Left box and is a number specifying the left margin. Right corresponds to the Right box and is a number specifying the right margin. Top corresponds to the Top box and is a number specifying the top margin. Bot corresponds to the Bottom box and is a number specifying the bottom margin. Hdng corresponds to the Row & Column Headings check box. Hdng is available only in the sheet and macro sheet form of the function. Grid corresponds to the Cell Gridlines check box. Grid is available only in the sheet and macro sheet form of the function. H_cntr corresponds to the Center Horizontally check box in the Margins panel of the Page Setup dialog box. V_cntr corresponds to the Center Vertically check box in the Margins panel of the Page Setup dialog box. Orient determines the direction in which your workbook is printed. Orient Print format 1 Portrait 2 Landscape Paper_size is a number from 1 to 26 that specifies the size of the paper. Paper_size Paper type 1 Letter 2 Letter (small) 3 Tabloid 4 Ledger 5 Legal 6 Statement 7 Executive 8 A3 9 A4 10 A4 (small) 11 A5 12 B4 13 B5 14 Folio 15 Quarto 16 10x14 17 11x17 18 Note 19 ENV9 20 ENV10 21 ENV11 22 ENV12 23 ENV14 24 C Sheet 25 D Sheet 26 E Sheet Scale is a number representing the percentage to increase or decrease the size of the sheet. All scaling retains the aspect ratio of the original. a.. To specify a percentage of reduction or enlargement, set scale to the percentage. b.. For worksheets and macros, you can specify the number of pages that the printout should be scaled to fit. Set scale to a two-item horizontal array, with the first item equal to the width and the second item equal to the height. If no constraint is necessary in one direction, you can set the corresponding value to #N/A. c.. Scale can also be a logical value. To fit the print area on a single page, set scale to TRUE. Pg_num specifies the number of the first page. If zero, sets first page to zero. If "Auto" is used, then the page numbering is set to automatic. If omitted, PAGE.SETUP retains the existing pg_num. Pg_order specifies whether pagination is left-to-right and then down, or top-to-bottom and then right. Pg_order Pagination 1 Top-to-bottom, then right 2 Left-to-right, then down Bw_cells is a logical value that specifies whether to print cells and all graphic objects, such as text boxes and buttons, in color. a.. If bw_cells is TRUE, Microsoft Excel prints cell text and borders in black and cell backgrounds in white. b.. If bw_cells is FALSE , Microsoft Excel prints cell text, borders, and background patterns in color (or in gray scale). Bw_chart is a logical value that specifies whether to print chart in color. Size is a number corresponding to the options in the Chart Size box, and determines how you want the chart printed on the page within the margins. Size is available only in the chart form of the function. Size Size to print the chart 1 Screen size 2 Fit to page 3 Full page Quality specifies the print quality in dots-per-inch. To specify both horizontal and vertical print quality, use an array of two values. Head_margin is the placement, in inches, of the running head margin from the edge of the page. Foot_margin is the placement, in inches, of the running foot margin from the edge of the page. Draft corresponds to the Draft Quality checkbox in the Sheet tab and in the Chart tab of the Page Setup dialog box. If FALSE or omitted, graphics are printed with the sheet. If TRUE, no graphics are printed. Notes specifies whether to print cell notes with the sheet. If TRUE, both the sheet and the cell notes are printed. If FALSE or omitted, just the sheet is printed. Remarks Microsoft Excel no longer requires you to enter formatting codes to format headers and footers, but the codes are still supported and recorded by the macro recorder. You can include these codes as part of the head and foot text strings to align portions of the header or footer to the left, right, or center; to include the page number, date, time, or workbook name; and to print the header or footer in bold or italic. Formatting code Result &L Left-aligns the characters that follow. &C Centers the characters that follow. &R Right-aligns the characters that follow. &B Turns bold printing on or off (now obsolete). &I Turns italic printing on or off. &U Turns single underlining printing on or off. &S Turns strikethrough printing on or off. &O Turns outline printing on or off (Macintosh only). &H Turns shadow printing on or off (Macintosh only). &D Prints the current date. &T Prints the current time. &A Prints the name of the sheet &F Prints the name of the workbook. &P Prints the page number. &P+number Prints the page number plus number. &P-number Prints the page number minus number. && Prints a single ampersand. & "fontname, fontstyle" Prints the characters that follow in the specified font and style. Be sure to include a comma immediately following the fontname, and double quotation marks around fontname and fontstyle. &nn Prints the characters that follow in the specified font size. Use a two-digit number to specify a size in points. &N Prints the total number of pages in the workbook. &E Prints a double underline &X Prints the character as superscript &Y Prints the character as subscript Related Functions DISPLAY Controls screen and Info Window display GET.DOCUMENT Returns information about a workbook PRINT Prints the active workbook WORKSPACE Changes workspace settings -- Don Guillett Microsoft MVP Excel SalesAid Software "Anthony" wrote in message ... Can someone please troubleshoot this code for me? For some reason, when I click on the autoshape that is assigned this macro, the printer will spool however it does not print. The Deskjet is not my default printer (because of some error with MS Word 07 that causes Word to stop working) if that helps. Code is below. Thanks. Sub PrintSheet() ' ' PrintSheet Macro ' ' Dim resp As Long resp = MsgBox("Printing will clear all data. Do you still want to print?", vbYesNo) If resp = vbNo Then Exit Sub Application.ActivePrinter = "HP Deskjet F2100 series on Ne04:" ActiveWindow.SmallScroll Down:=-36 ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" Range ("A5:D5,E5:G5,H5:I5,A7:D7,E7:G7,H7:I7,G9,H9,I9,G10 ,H10,I10").Select Range("I10").Activate ActiveWindow.SmallScroll Down:=16 Range( _ "A5:D5,E5:G5,H5:I5,A7:D7,E7:G7,H7:I7,G9,H9,I9,G10, H10,I10" _ ).Select Range("I10").Activate Selection.ClearContents End Sub |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Print macro won't work
This prior post may help. The *fast* way to do page setup in Excel is to use the XLM (Excel 4 Macro Language) syntax (PAGE.SETUP) and call it using Application.ExecuteExcel4Macro like this: Application.ExecuteExcel4Macro "PAGE.SETUP(arg1, arg2, arg3, ..., argn)" The arguments are documented in the Excel 4 help file which, if you have Excel 2000, is a download. You can get it from: http://officeupdate.microsoft.com/20...ls/xlmacro.htm It installs, among other things, a chm (compiled HTML help) file on your machine that documents all of the XLM functions. Below, for convenience sake, I have included the help file page for PAGE.SETUP. Hopefully, this post can put this topic to rest...(In case you were wondering, there are *no* "pure" VBA-based workarounds to the performance of page setup, period. Rob, Robert and other MVPs, step in and correct me here if I am wrong..) Tim Tim Tow, CPA MCSD Microsoft MVP - Excel Applied OLAP, Inc Help file section: ================================================== ======================= PAGE.SETUP Macro Sheets Only Equivalent to clicking the Page Setup command on the File menu. Use PAGE.SETUP to control the printed appearance of your sheets. There are three syntax forms of PAGE.SETUP. Syntax 1 applies if a sheet or macro sheet is active; syntax 2 applies if a chart is active; syntax three applies to Visual Basic modules and the info Window. Arguments correspond to check boxes and text boxes in the Page Setup dialog box. Arguments that correspond to check boxes are logical values. If an argument is TRUE, Microsoft Excel selects the check box; if FALSE, Microsoft Excel clears the check box. Arguments for margins are always in inches, regardless of your country setting. Syntax 1 Worksheets and macro sheets PAGE.SETUP(head, foot, left, right, top, bot, hdng, grid, h_cntr, v_cntr, orient, paper_size, scale, pg_num, pg_order, bw_cells, quality, head_margin, foot_margin, notes, draft) PAGE.SETUP?(head, foot, left, right, top, bot, hdng, grid, h_cntr, v_cntr, orient, paper_size, scale, pg_num, pg_order, bw_cells, quality, head_margin, foot_margin, notes, draft) Syntax 2 Charts PAGE.SETUP(head, foot, left, right, top, bot, size, h_cntr, v_cntr, orient, paper_size, scale, pg_num, bw_chart, quality, head_margin, foot_margin, draft) PAGE.SETUP?(head, foot, left, right, top, bot, size, h_cntr, v_cntr, orient, paper_size, scale, pg_num, bw_chart, quality, head_margin, foot_margin, draft) Syntax 3 Visual Basic Modules and the Info Window PAGE.SETUP(head, foot, left, right, top, bot, orient, paper_size, scale, quality, head_margin, foot_margin, pg_num) PAGE.SETUP?(head, foot, left, right, top, bot, orient, paper_size, scale, quality, head_margin, foot_margin, pg_num) Head specifies the text and formatting codes for the header for the current sheet . For information about formatting codes, see "Remarks" later in this topic. Foot specifies the text and formatting codes for the workbook footer. Left corresponds to the Left box and is a number specifying the left margin. Right corresponds to the Right box and is a number specifying the right margin. Top corresponds to the Top box and is a number specifying the top margin. Bot corresponds to the Bottom box and is a number specifying the bottom margin. Hdng corresponds to the Row & Column Headings check box. Hdng is available only in the sheet and macro sheet form of the function. Grid corresponds to the Cell Gridlines check box. Grid is available only in the sheet and macro sheet form of the function. H_cntr corresponds to the Center Horizontally check box in the Margins panel of the Page Setup dialog box. V_cntr corresponds to the Center Vertically check box in the Margins panel of the Page Setup dialog box. Orient determines the direction in which your workbook is printed. Orient Print format 1 Portrait 2 Landscape Paper_size is a number from 1 to 26 that specifies the size of the paper. Paper_size Paper type 1 Letter 2 Letter (small) 3 Tabloid 4 Ledger 5 Legal 6 Statement 7 Executive 8 A3 9 A4 10 A4 (small) 11 A5 12 B4 13 B5 14 Folio 15 Quarto 16 10x14 17 11x17 18 Note 19 ENV9 20 ENV10 21 ENV11 22 ENV12 23 ENV14 24 C Sheet 25 D Sheet 26 E Sheet Scale is a number representing the percentage to increase or decrease the size of the sheet. All scaling retains the aspect ratio of the original. a.. To specify a percentage of reduction or enlargement, set scale to the percentage. b.. For worksheets and macros, you can specify the number of pages that the printout should be scaled to fit. Set scale to a two-item horizontal array, with the first item equal to the width and the second item equal to the height. If no constraint is necessary in one direction, you can set the corresponding value to #N/A. c.. Scale can also be a logical value. To fit the print area on a single page, set scale to TRUE. Pg_num specifies the number of the first page. If zero, sets first page to zero. If "Auto" is used, then the page numbering is set to automatic. If omitted, PAGE.SETUP retains the existing pg_num. Pg_order specifies whether pagination is left-to-right and then down, or top-to-bottom and then right. Pg_order Pagination 1 Top-to-bottom, then right 2 Left-to-right, then down Bw_cells is a logical value that specifies whether to print cells and all graphic objects, such as text boxes and buttons, in color. a.. If bw_cells is TRUE, Microsoft Excel prints cell text and borders in black and cell backgrounds in white. b.. If bw_cells is FALSE , Microsoft Excel prints cell text, borders, and background patterns in color (or in gray scale). Bw_chart is a logical value that specifies whether to print chart in color. Size is a number corresponding to the options in the Chart Size box, and determines how you want the chart printed on the page within the margins. Size is available only in the chart form of the function. Size Size to print the chart 1 Screen size 2 Fit to page 3 Full page Quality specifies the print quality in dots-per-inch. To specify both horizontal and vertical print quality, use an array of two values. Head_margin is the placement, in inches, of the running head margin from the edge of the page. Foot_margin is the placement, in inches, of the running foot margin from the edge of the page. Draft corresponds to the Draft Quality checkbox in the Sheet tab and in the Chart tab of the Page Setup dialog box. If FALSE or omitted, graphics are printed with the sheet. If TRUE, no graphics are printed. Notes specifies whether to print cell notes with the sheet. If TRUE, both the sheet and the cell notes are printed. If FALSE or omitted, just the sheet is printed. Remarks Microsoft Excel no longer requires you to enter formatting codes to format headers and footers, but the codes are still supported and recorded by the macro recorder. You can include these codes as part of the head and foot text strings to align portions of the header or footer to the left, right, or center; to include the page number, date, time, or workbook name; and to print the header or footer in bold or italic. Formatting code Result &L Left-aligns the characters that follow. &C Centers the characters that follow. &R Right-aligns the characters that follow. &B Turns bold printing on or off (now obsolete). &I Turns italic printing on or off. &U Turns single underlining printing on or off. &S Turns strikethrough printing on or off. &O Turns outline printing on or off (Macintosh only). &H Turns shadow printing on or off (Macintosh only). &D Prints the current date. &T Prints the current time. &A Prints the name of the sheet &F Prints the name of the workbook. &P Prints the page number. &P+number Prints the page number plus number. &P-number Prints the page number minus number. && Prints a single ampersand. & "fontname, fontstyle" Prints the characters that follow in the specified font and style. Be sure to include a comma immediately following the fontname, and double quotation marks around fontname and fontstyle. &nn Prints the characters that follow in the specified font size. Use a two-digit number to specify a size in points. &N Prints the total number of pages in the workbook. &E Prints a double underline &X Prints the character as superscript &Y Prints the character as subscript Related Functions DISPLAY Controls screen and Info Window display GET.DOCUMENT Returns information about a workbook PRINT Prints the active workbook WORKSPACE Changes workspace settings -- Don Guillett Microsoft MVP Excel SalesAid Software "Anthony" wrote in message ... Can someone please troubleshoot this code for me? For some reason, when I click on the autoshape that is assigned this macro, the printer will spool however it does not print. The Deskjet is not my default printer (because of some error with MS Word 07 that causes Word to stop working) if that helps. Code is below. Thanks. Sub PrintSheet() ' ' PrintSheet Macro ' ' Dim resp As Long resp = MsgBox("Printing will clear all data. Do you still want to print?", vbYesNo) If resp = vbNo Then Exit Sub Application.ActivePrinter = "HP Deskjet F2100 series on Ne04:" ActiveWindow.SmallScroll Down:=-36 ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" Range ("A5:D5,E5:G5,H5:I5,A7:D7,E7:G7,H7:I7,G9,H9,I9,G10 ,H10,I10").Select Range("I10").Activate ActiveWindow.SmallScroll Down:=16 Range( _ "A5:D5,E5:G5,H5:I5,A7:D7,E7:G7,H7:I7,G9,H9,I9,G10, H10,I10" _ ).Select Range("I10").Activate Selection.ClearContents End Sub |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Print macro won't work
Hi,
Unrelated stuff to consider: simplify the code to - Sub PrintSheet() Dim resp As Long resp = MsgBox("Printing will clear all data. Do you still want to print?", vbYesNo) If resp = vbNo Then Exit Sub Application.ActivePrinter = "HP Deskjet F2100 series on Ne04:" ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" Range("A5:D5,E5:G5,H5:I5,A7:D7,E7:G7,H7:I7,G9,H9,I 9,G10,H10,I10").ClearContents End Sub But incorporate what Don gave you regarding the Print command -- If this helps, please click the Yes button. Cheers, Shane Devenshire "Anthony" wrote: Can someone please troubleshoot this code for me? For some reason, when I click on the autoshape that is assigned this macro, the printer will spool however it does not print. The Deskjet is not my default printer (because of some error with MS Word 07 that causes Word to stop working) if that helps. Code is below. Thanks. Sub PrintSheet() ' ' PrintSheet Macro ' ' Dim resp As Long resp = MsgBox("Printing will clear all data. Do you still want to print?", vbYesNo) If resp = vbNo Then Exit Sub Application.ActivePrinter = "HP Deskjet F2100 series on Ne04:" ActiveWindow.SmallScroll Down:=-36 ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" Range ("A5:D5,E5:G5,H5:I5,A7:D7,E7:G7,H7:I7,G9,H9,I9,G10 ,H10,I10").Select Range("I10").Activate ActiveWindow.SmallScroll Down:=16 Range( _ "A5:D5,E5:G5,H5:I5,A7:D7,E7:G7,H7:I7,G9,H9,I9,G10, H10,I10" _ ).Select Range("I10").Activate Selection.ClearContents End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
print button macro & specific tabs to print | Excel Worksheet Functions | |||
Pivot Table macro to set print area and print details of drill down data | Excel Discussion (Misc queries) | |||
Macro to open print window and set to print entire workbook | Excel Discussion (Misc queries) | |||
Create a print macro that would automatically select print area? | Excel Worksheet Functions | |||
i want to print 70 work book and i dont want to open each n print | Excel Discussion (Misc queries) |