Я пытаюсь перейти к следующей строке, когда я получаю имя принтера. В настоящее время я создаю список всех доступных принтеров, с которых я могу печатать, но они все продолжают записывать в одну и ту же ячейку.
Я попытался сделать приращения, такие как row = row + 1, но безуспешно
Dim PlotRow As Integer
Set Layout = NewFile.ModelSpace.Layout 'Setting the layout to ModelSpace viewport
Layout.RefreshPlotDeviceInfo 'Refresh the current plot information
plotDevices = Layout.GetPlotDeviceNames() 'Setting the plotting view for this current layout
PlotRow = 18
Dim x As Integer
For x = LBound(plotDevices) To UBound(plotDevices)
Cells(PlotRow, 10) = plotDevices(x)
Debug.Print plotDevices(x)
PlotRow = PlotRow + 1
Next
Я хочу создать список всех допустимых принтеров без перезаписи каждой ячейки.