Private Sub CmdExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdExcel.Click
Dim oldCI As System.Globalization.CultureInfo = _
System.Threading.Thread.CurrentThread.CurrentCulture
System.Threading.Thread.CurrentThread.CurrentCulture = _
New System.Globalization.CultureInfo("en-US")
Cetak_Excel()
System.Threading.Thread.CurrentThread.CurrentCulture = oldCI
End Sub
Sekian dan Terima kasih.
Post a Comment