打印条形码单元格也是一个相邻的单元格

我在Excel 2013中有一个macros，如下所示：

Sub PrntCells() Dim rng As Range, rngArea As Range, strCell As String Set rng = Selection With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 .LeftMargin = Application.InchesToPoints(0) .RightMargin = Application.InchesToPoints(0) .TopMargin = Application.InchesToPoints(0) .BottomMargin = Application.InchesToPoints(0) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .CenterHorizontally = True .CenterVertically = True .Orientation = xlPortrait .LeftHeader = "" .LeftFooter = "" End With 'Copy each selection For Each rngArea In rng.Areas For Each cell In rngArea cell.PrintOut Copies:=1 cell.Offset(0, 1).PrintOut Copies:=1 Next cell Next rngArea Application.DisplayAlerts = True rng.Parent.Activate End Sub 

我正在使用一个插件为我生成实际的Code128条形码，而且工作正常，看起来像这样：

我已经安装了，所以用户可以select一系列的代码并运行macros，每个条形码从条形码打印机自己的标签上出来，但他们也想要条形码和条形码右边的单元格标签是物品描述。

有没有办法做到这一点？ 我很难让它在1标签上打印两个单元格。

我真的很感激任何帮助，我不是Excel专家，这是我第一次尝试在Excel中使用macros。