Problemilla

[degauss]

Saludos cordiales, bueno mi problema es el siguiente tengo un reporte que ocupo el VSPrinter, ahora tengo 2 botones uno imprimir y otro que hace generar el el excel.. los 2 botones me funcionan bien hacen lo que quiero PERO cuando por ejemplo pincho imprimir y despues generar el excel este no lo hace... pero cuando cierro y ejecuto de nuevo y corro solo el excel funka .. osea no puedo imprimir y despues hacer que genere el excel de verdad no se ... .

Dejo el codigo para ver si me pueden ayudar.. gracias de antemano.-

El codigo para generar el Excel es el siguiente
Private Sub sscom_excel_Click()

Dim fname$
Screen.MousePointer = 11

fname$ = Mid(VsPrinter.ExportFile, 1, Len(VsPrinter.ExportFile) - 4)
VsPrinter.ExportFile = fname$ & ".xls"

ShellExecute hwnd, "open", VsPrinter.ExportFile, 0, 0, 5



Screen.MousePointer = 0



End Sub

mm no se si le faltara algo no se realmente.... gracias de antemano