चयनित कोशिकाओं को मुद्रित करने के लिए मैक्रो बनाना

Question

मैं Macroचयनित सेल को प्रिंट करने के लिए रिकॉर्ड करने की कोशिश कर रहा हूं, फिर वर्कशीट को उसके मूल प्रारूप में लौटा दूंगा। मैं H, प्रिंटिंग के माध्यम से कॉलम B छिपा रहा हूं A7:I68। मैक्रो रिकॉर्ड करते समय प्रिंट सही निकलता है। एक बार सहेजने के बाद यह कॉलम A7: A68 को प्रिंट करता है, इसमें कॉलम I शामिल नहीं है।

ActiveSheet.Unprotect
Columns("B:H").Select
Selection.EntireColumn.Hidden = True
Range("A7:I68").Select
ActiveSheet.PageSetup.PrintArea = "$A$7:$I$68"
Selection.PrintOut Copies:=1, Collate:=True
Columns("A:I").Select
Selection.EntireColumn.Hidden = False
ActiveWindow.SmallScroll Down:=-72
Range("A10").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
    False

कोई सुझाव?

Comments

प्रश्न संपादित करें और

— यास

मैक्रो में जाएं, और F8 दबाएं। देखें कि क्या होता है, और F8 दबाएं और देखें कि क्या होता है, चरण दर चरण। शायद यह स्तंभों को ठीक से छिपा नहीं रहा है। शायद यह प्रिंट क्षेत्र का चयन नहीं कर रहा है - एक मैक्रो में कदम एक सभ्य समस्या निवारण कदम है।

— सेल्की

सेल्की, आपके सुझाव के लिए धन्यवाद, मैंने इसे आजमाया लेकिन इसका परिणाम भी वही निकला। प्रिंट क्षेत्र मैक्रो में सही सेट किया गया है, लेकिन आउटपुट अभी भी केवल कॉलम ए। ActiveSheet.PageSetup.PrintArea = "$ A $ 7: $ I $ 68" है। कोई अन्य विचार?

— टीना स्टोन

Answer 1

टीना मैं VBA कोड को प्रिंट करने के लिए सुझाव देना चाहूंगा, लेकिन एक से अधिक चयन नहीं, यह वहां शीट पेस्ट बनाने के लिए रेंज कॉपी करेगा, पूर्वावलोकन दिखाएगा, प्रिंट करेगा और अंत में उस शीट को हटा देगा।

Sub Print_MultiSelection()

Dim rng As Range, ws As Worksheet, rngArea As Range

Set rng = Selection

Set ws = Worksheets.Add(After:=Sheets(Sheets.Count))

For Each rngArea In rng.Areas rngArea.Copy Destination:=ws.Range(rngArea.Address)

ws.Range(rngArea.Address).Value = rngArea.Value

Next 

rngArea ws.PrintPreview

ws.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:= False

Application.DisplayAlerts = False

ws.Delete Application.DisplayAlerts = True

rng.Parent.Activate

End Sub