利用VBA打印隱藏的excel工作表

利用VBA打印隱藏的Excel工作表

如果一個(gè)工作簿中包含許多工作表，其中還有一些是隱藏的，我們可以用VBA代碼來直接打印所有隱藏的工作表，而無需將它們?nèi)∠[藏。由于Excel無法打印隱藏的工作表，下面的代碼先取消工作表的隱藏，打印之后再將其隱藏起來。將代碼放入VBA編輯器的標(biāo)準(zhǔn)模塊中運(yùn)行。

Sub PrintHiddenSheets()Dim wSheet As WorksheetDim CurStat As VariantFor Each wSheet In ActiveWorkbook.WorksheetsIf Not wSheet.Visible ThenCurStat = wSheet.VisiblewSheet.Visible = xlSheetVisible‘打印預(yù)覽，如果要打印用 wSheet.PrintOutwSheet.PrintPreviewwSheet.Visible = CurStatEnd IfNextEnd Sub

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。