PrintToFile from spreadsheet
Hi,
i have such a code: With Sheets("layout").PageSetup .PrintArea = "$B$2:$D$26" ' .LeftHeader = "" ' .CenterHeader = "" ' .RightHeader = "" ' .LeftFooter = "" ' .CenterFooter = "" ' .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.59) .RightMargin = Application.InchesToPoints(0.59) .TopMargin = Application.InchesToPoints(0.59) .BottomMargin = Application.InchesToPoints(0.59) .HeaderMargin = Application.InchesToPoints(0.118) .FooterMargin = Application.InchesToPoints(0.118) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 144 .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 90 .PrintErrors = xlPrintErrorsDisplayed End With Sheets("layout").PrintOut PrintToFile:="C:\test\" & Sheets("layout").Range("F4").Value but nothing happen. How can i force :) my VBA to print this area to postscript file regards |
All times are GMT +1. The time now is 02:21 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com