Excel打印行在哪里（select标准）

我有一个文件有4列（ABCD）在A列中的“经理”和B列员工数字与每个员工在C和D中的示例信息。我想要做的是能够有一个打印macros这将打印每个经理下的所有员工的PDF格式，标题重复在顶部。 所以当打印macros被点击时，它会问“哪个pipe理器”？ 然后它会被点击，然后它会打印PDF。

这可能吗？ 我一直在研究循环，我在想这将是做到这一点，但似乎无法弄清楚如何取代我的“范围”下面。 这是我在另一个静态范围文件中使用的示例代码。

任何帮助深表感谢！ 谢谢。 PS抱歉代码格式，我似乎无法习惯Stack Overflow的编辑方式。

Sub Dept_BGT_Print() Range("C14:R45").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "John Dept BGT.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True Range("C47:R59").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "HR Dept BGT.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True Range("C62:R126").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "Marketing & Sales Dept BGT.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True Range("C128:R207").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "Skip Dept BGT.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True Range("C209:R250").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "Amy Dept BGT.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True 

结束小组

Answer 1

如果您有兴趣一次打印一位经理，那么最好的select可能就是使用自动filter。

 Sub Dept_BGT_Print() Dim Sel_Manager As String 'Specify headers to be repeated at the top With ActiveSheet.PageSetup .PrintTitleRows = "$1:$1" .PrintTitleColumns = "" End With 'Manager selection through simple Inputbox Sel_Manager = InputBox("Which manager?") 'Insert autofilter for worksheet Cells.Select Selection.AutoFilter 'Select manager defined in inputbox ActiveSheet.Range("A1", Range("D1").End(xlDown)).AutoFilter Field:=1, Criteria1:=Sel_Manager 'Select range to be printed and specify manager in filename ActiveSheet.Range("A1", Range("D1").End(xlDown)).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "Employees for manager " & manager & ".pdf", Quality:=xlQualityStandard, _IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True 'remove autofilter ActiveSheet.ShowAllData End Sub