Excel中,工作表背景是文字,而且能打印出来

来源:百度知道 编辑:UC知道 时间:2024/05/24 07:20:47
Excel中,工作表背景是文字,而且能打印出来
比如,我的这页的检测数据是不合格的,
那我就在整个页面背景显示一个“REJECTED”,而且能打印出来

简单点:插入艺术字就可以了

会遮住一些数据,调一调艺术字效果减少被遮住部分。

做个大字的REJECTED图片,图片应该比较大,插在页眉或页脚里。

盖个章而已
你用画图工具,先输入文字:REJECTED,再画一个椭圆的章,保存好,插入到表格中来 ,将图片放大到整个打印区域就OK了

将以下代码放在THISWORKBOOK的代码区:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = False
If ActiveSheet.[E10] <> "合格" Then
With ActiveSheet.[IO65530]
.Font.Name = "宋体"
.Font.Size = 36
.VerticalAlignment = xlCenter
.Orientation = 45
.Font.ColorIndex = 5
.Value = "REJECTED"
.Offset(-3, 0).Resize(6, 6).CopyPicture Appearance:=xlPrinter, Format:=xlPicture
ActiveSheet.[D10].Activate
ActiveSheet.Paste
Selection.ShapeRange.ZOrder msoSendToBack
.Delete shift:=xlUp
End With
Else
ActiveSheet.Shapes.SelectAll
Selectio