Yazıcı özelliklerini excel makro olarak değiştirin

Question

Yazıcı özelliklerini, Excel makro/Excel VBA'da siyah beyaz yerine renkli olarak değiştirebilmem için herhangi bir yol var mı? Makrodan renkli baskı yapmak isterim ancak excel'in her çıkışında rengi siyah ve beyaz olarak ayarlar. Makroyu çalıştırdığım her seferde rengin rengin tekrar ayarlanmasını istiyorum. Bu benim baskıya kullanıyorum kodudur: Bu makro tarafından etkilenen her sayfayı yazdırır

Workbooks("Book1.xlsm").Worksheets("Sheet3").PrintOut from:=1, To:=(i/2) - 0.5 

ama siyah ve beyaz yapar. Zaten bu denedi ama bir şey değişmedi: ben de bir API çözümüyle iyi olurdu vba bunu yapmak mümkün değilse

Workbooks("Book1.xlsm").Worksheets("Sheet3").PageSetup.BlackAndWhite = False 

.

Answer 1

yerine kullanarak:

Workbooks("Book1.xlsm").Worksheets("Sheet3").PrintOut 

ve atlayabilirsiniz:

Workbooks("Book1.xlsm").Worksheets("Sheet3").PrintOut from:=1, To:=(i/2) - 0.5 

Sadece kullanabilirsiniz

Workbooks("Book1.xlsm").Worksheets("DoNotDelete").PageSetup.BlackAndWhite = False 

sadece, baskı çalışma sayfası ayarları değil değiştiğinden ayarlar.

Ancak, renkli baskıya giderken, muhtemelen control panel modelinde aynı yazıcıyı iki kez bir kısayol oluşturmaktan ve varsayılan rengi bir diğerine de varsayılan olarak siyah beyaza ayarlamak en iyisidir. Bu şekilde, yalnızca hangi yazıcıyı seçtiğinizden renk veya siyah/beyaz belirtebilirsiniz.