Visual Basic

Aaran Heavey wrote:

eb app that will check a specified folder periodically for a new file.

Aaran Heavey wrote:

new excel file is found, it's data must be transfered to a SQL server database.

Try<br />
            PrintDocument1.Print()<br />
        Catch ex As Exception<br />
            MessageBox.Show("An error occurred while printing" &amp; vbCrLf &amp; ex.ToString())<br />
        End Try<br />

<br />
        PrintPreviewDialog1.PrintPreviewControl.Document = PrintDocument1<br />
        PrintPreviewDialog1.PrintPreviewControl.InvalidatePreview()<br />
        PrintPreviewDialog1.ShowDialog()<br />

SoInnocentIAm... wrote:

PrintDocument1_PrintPage CODE contains simple drawing methods.

Print works fine but print preview displays nothing except small black dots in print preview area; that is each dot for each page.i have tried
InvalidatePreview() but it didn't help.

Dim userId As Integer = service.getUserId("Web")<br />
       If userId > 0 Then<br />
           Dim userData As UserWS = service.getUserWS(userId)<br />
       End If

Imports JBillingWebReff<br />
Imports com.rephero.billing<br />
Imports com.rephero.billing.UserWS<br />
<br />
Partial Class JBillingWebReff<br />
    Inherits System.Web.UI.Page<br />
    Dim service As New WebServicesSessionLocalService()<br />
<br />
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load<br />
        Dim userId As Integer = service.getUserId("Web")<br />
        If userId > 0 Then<br />
            Dim userData As UserWS = service.getUserWS(userId)<br />
        End If<br />
    End Sub<br />
End Class

The request failed with HTTP status 505: HTTP Version Not Supported. <br />
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. <br />
<br />
Exception Details: System.Net.WebException: The request failed with HTTP status 505: HTTP Version Not Supported.<br />
<br />
Source Error: <br />
<br />
An unhandled exception was generated during the execution of the current web request. Information regarding the origin and location of the exception can be identified using the exception stack trace below.  <br />
<br />
Stack Trace: <br />
<br />
<br />
[WebException: The request failed with HTTP status 505: HTTP Version Not Supported.]<br />
   System.Web.Services.Protocols.SoapHttpClientProtocol.ReadResponse(SoapClientMessage message, WebResponse response, Stream responseStream, Boolean asyncCall) +551137<br />
   System.Web.Services.Protocols.SoapHttpClientProtocol.Invoke(String methodName, Object[] parameters) +204<br />
   com.rephero.billing.WebServicesSessionLocalService.getUserId(String in0) +79<br />
   JBillingWebReff.Page_Load(Object sender, EventArgs e) +102<br />
   System.Web.UI.Control.OnLoad(EventArgs e) +99<br />
   System.Web.UI.Control.LoadRecursive() +47<br />
   System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +1436<br />
<br />
 <br />
<br />
<br />
--------------------------------------------------------------------------------<br />
Version Information: Microsoft .NET Framework Version:2.0.50727.1433; ASP.NET Version:2.0.50727.1433 

Imports JBillingWebReff<br />
Imports com.rephero.billing<br />
Imports com.rephero.billing.UserWS<br />
Imports com.rephero.billing.WebServicesSessionLocalService<br />
<br />
Partial Class JBillingWebReff<br />
    Inherits System.Web.UI.Page<br />
<br />
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load<br />
        Dim service As WebServicesSessionLocalService = New WebServicesSessionLocalService()<br />
        Dim userName As String = "jbajin"<br />
        service.Credentials = New Net.NetworkCredential("webapp", "r3ph3r0-b1ll1ng")<br />
        Dim userIdParams As String = "jbajin"<br />
        Dim result As String<br />
        result = service.getUserId(userIdParams)<br />
<br />
        Response.Write(result)<br />
<br />
    End Sub<br />
End Class<br />