กานปรีนฟอมออกทางเคื่อง Printer

[วังวู ช่ง]

เรียนท่าน อาจารย์ และผู้ที่รู้ทุกๆท่านครับ ผมติดปัญหาในกานพีม Form ครับ ช่วยแนะนำด้วยครับ ผมอยาก Print แต่บาง Cell ครับคือ

๑, สีเหลืองไม่ต้องการ Print ในส่วนนี้เมื่อ Print ออกมาจะไม่เหัน
๒. สีน้ำเงินเปัญ Cell ที่ต้องกาน Print ให้ออกมาครับ

[snasui]

ลองใช้ Macro กำหนดสี Font ในพื้นที่ที่ไม่ต้องการ Print ให้เป็นสีพื้นครับ เมื่อ Print เสร็จแล้วให้กำหนดกลับมาเป็นสีเดิมครับ

[วังวู ช่ง]

ลองใช้ Macro กำหนดสี Font ในพื้นที่ที่ไม่ต้องการ Print ให้เป็นสีพื้นครับ เมื่อ Print เสร็จแล้วให้กำหนดกลับมาเป็นสีเดิมครับ

Code: Select all

Sub Macro1()
Application.ScreenUpdating = False
    Range("A1:H1,A2:H2,A3,A4,A5:H5,B6:E6,A7,C7,E7,G7,A8,D8,A9,A10,C10").Select
    Range("C10").Activate
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Range("A1:H1").Select
    Range("I1").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
  Application.ScreenUpdating = True
End Sub

เรียนท่านอาจารย์ครับ ติดปัญหาการ Undo ครับ ช่วยดูให้หน่อยครับ

ขอบคุณล่วงหน้าครับ

[snasui]

ลองปรับเป็นตามด้านล่างครับ

Code: Select all

Sub Macro()
    Range("A1:H1,A2:H2,A3,A4,A5:H5," _
        & "B6:E6,A7,C7,E7,G7,A8,D8,A9,A10,C10").Font.Color = vbWhite
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Range("A1:H1,A2:H2,A3,A4,A5:H5," _
        & "B6:E6,A7,C7,E7,G7,A8,D8,A9,A10,C10").Font.Color = vbBlack
End Sub

[วังวู ช่ง]

ได้แล้วครับ ขอบคุณท่านอาจานมากๆครับ