access將報(bào)表內(nèi)容打印成彩色

設(shè)計(jì)好的報(bào)表 需要打印。一般來(lái)說(shuō)打印機(jī)可以選擇黑白打印和彩色打印。

如何利用代碼指定打印機(jī)是以彩色還是黑白來(lái)打印輸出。

DoCmd.OpenReport "報(bào)表1", acViewPreview  
Reports("報(bào)表2").Printer.ColorMode = acPRCMColor   '更改打印色彩模式為彩色

下面代碼指定的窗體設(shè)置各種打印機(jī)設(shè)置

Sub SetPrinter(strFormname As String) 
 
 DoCmd.OpenForm strFormname, acDesign, acFormEdit, acHidden 
 
 With Forms(form1).Printer 
 
 .TopMargin = 1440 
 .BottomMargin = 1440 
 .LeftMargin = 1440 
 .RightMargin = 1440 
 
 .ColumnSpacing = 360 
 .RowSpacing = 360 
 
  .ColorMode = acPRCMColor 
 .DataOnly = False 
 .DefaultSize = False 
 .ItemSizeHeight = 2880 
 .ItemSizeWidth = 2880 
 .ItemLayout = acPRVerticalColumnLayout 
 .ItemsAcross = 6 
 
 .Copies = 1 
 .Orientation = acPRORLandscape 
 .Duplex = acPRDPVertical 
 .PaperBin = acPRBNAuto 
 .PaperSize = acPRPSLetter 
 .PrintQuality = acPRPQMedium 
 
 End With 
 
 DoCmd.Close acForm, strFormname, acSaveYes 
 
 
End Sub