Пытаясь добраться до следующего ряда в Excel - PullRequest
0 голосов
/ 13 октября 2019

Я пытаюсь перейти к следующей строке, когда я получаю имя принтера. В настоящее время я создаю список всех доступных принтеров, с которых я могу печатать, но они все продолжают записывать в одну и ту же ячейку.

Я попытался сделать приращения, такие как 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

Я хочу создать список всех допустимых принтеров без перезаписи каждой ячейки.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...