提供了一个思路
Sub 打印思路()
Dim rng As Range '定义一个单元格变量
Set rng = Columns(2).Find(Range("g1")) '在第2列查找 G1单元格的值,把查找到的单元格赋值给rng
rng.Offset(0, -1).Resize(5, 2).Select '通过rng区域扩大到要打印的区域(所有打印的区域要长宽一致)
Selection.PrintOut Copies:=1, Collate:=True '录个宏,打印一下(我没试过,不知道对不对)
End Sub