基点シートまで来たらフラグを上げてプリントアウトする方法です。

Sub test3()
 Dim wscnt As Integer
 Dim i As Integer
 Dim flg As Boolean
   flg = False
   For i = Worksheets.Count To 1 Step -1
    If flg = True Then MsgBox Worksheets(i).Name & vbCrLf & "printout"
    'If flg = True Then Worksheets(i).PrintOut
    If Worksheets(i).Name = "基点シート" Then flg = True
  Next i
End Sub

>For i = wsindx To 1 Step -1 '昇順でループ

昇順ではなく降順でした。

ヘンリーさんご提示の
>For〜Next Step -1を使って
の方法の一例です。

Sub test2()
 Dim kitenws As Worksheet
 Dim wsindx As Integer
 Dim i As Integer

  Set kitenws = Worksheets("基点ート") '基点シート
  wsindx = kitenws.Index - 1 '印刷開始シートのシートインデックス
  For i = wsindx To 1 Step -1 '昇順でループ
    Worksheets(i).PrintOut 'シートプリントアウト
  Next i

  Set kitenws = Nothing
End Sub

こういうことする人ないと思うけど、こんな方法も
ある、というコードです。

Sub test()
 Dim wscnt As Integer
 Dim kijunws As Worksheet
 Dim wsindx As Integer
 Dim prtsht As Worksheet
  Set kijunws = Worksheets("基準シート") '基準シート
  Set prtsht = kijunws '最初は基準シート 
  wsindx = kijunws.Index - 1
  For i = 1 To wsindx
   Set prtsht = prtsht.Previous '基準シートの一つ左のシート
   prtsht.PrintOut ’シートプリントアウト
  Next i
  Set prtsht = Nothing
  Set kijunws = Nothing
End Sub

私なら、シート名を配列に入れて、
配列のインデックスの大きい順から読んでいき、
基点シートの前までは、印刷しない、
基点シートの後からは印刷するとやると思います。

動的配列にシートの1番名から入れていく
For〜Next Step -1を使って、インデックスの大きい順に読む
Ifを使って、基点シートまで読み飛ばし、
基点シートの後のシートから印刷する

こんな感じです。