No ale co się dzieje, czy paragon się drukuje, czy generowany jest jakiś wyjątek ? Czy masz skonfigurowanego Subiekta do fiskalizacji paragonów - możesz wydrukować paragon na drukarce fiskalnej z Subiekta ?
Może pomoże też fragment z pomocy do Sfery:
Atrybut DrukarkaFiskalnaId
Identyfikator drukarki fiskalnej, na której dany dokument ma zostać wydrukowany.
Uwagi
Atrybut nie jest zapisywany w bazie danych. Aby wydrukować dokument na drukarce fiskalnej należy atrybut ustawić przed samą operacją drukowania.
Przykład
W przykładzie pokazano w jaki sposób zrealizować wydruk dokumentu na drukarce fiskalnej.
Sub RejestrujNaUF()
On Error GoTo ErrHandler
Dim oSubGT As InsERT.Subiekt
Dim oDok As InsERT.SuDokument
Set oSubGT = UruchomSubiekta()
Set oDok = oSubGT.SuDokumentyManager.Wczytaj("FS 1/2010")
oDok.RejestrujNaUF = True
oDok.DrukarkaFiskalnaId = 1
oDok.Drukuj (True)
oDok.Zamknij
Exit Sub
ErrHandler:
MsgBox "Wystąpił błąd: " & Err.Number & " - " & Err.Description
End Sub
Wygląda na to, że w twoim kodzie albo brakuje podania id drukarki albo ponownego wczytania dokumentu po zapisie. Zrób test i daj znać jak poszło.