Visualizzazione dei risultati da 1 a 6 su 6
  1. #1
    Utente di HTML.it L'avatar di fraude
    Registrato dal
    Feb 2004
    Messaggi
    2,870

    Microsoft VBScript compilation

    Questo codice non vuole saperne di funzionare e non capisco perchè:
    codice:
     <script language="VBScript">
    <%
    Dim myPDF As New VB2PDF
        myPDF.PaperSize = pdfA4
        myPDF.FileName = "test1.pdf"
        myPDF.StartPDF
        myPDF.WritePDF "Hello world !", True
        myPDF.WritePDF "This is a new row ", True
        myPDF.WritePDF "and I can write in BOLD ", False, pdfBold
        myPDF.WritePDF "or ITALIC ", False, pdfItalic
        myPDF.WritePDF "or BOTH !", False, pdfBoldItalic
        myPDF.WritePDF "And so and so ...", True
        
        Dim i As Long
        For i = 0 To 345 Step 15
            myPDF.SetOrigin 300, 500, i
            myPDF.WritePDF "--- NEW - text rotated by " & i & "°", False, pdfRegular
        Next
        myPDF.NewPage
        myPDF.WritePDF "This is another page !", True
        myPDF.EndPDF
    %>
    </script>
    Errore:
    codice:
    Error Type:
    Microsoft VBScript compilation (0x800A0401)
    Expected end of statement


    Non riesco a modificare il titolo della discussione, per favore moderatori pensateci voi, grazie!

  2. #2
    Utente di HTML.it L'avatar di fraude
    Registrato dal
    Feb 2004
    Messaggi
    2,870
    Questo è il codice in VBSCRIPT:
    codice:
     <script language="VBScript">
    <%
    Dim myPDF 
        myPDF.PaperSize = pdfA4
        myPDF.FileName = "test1.pdf"
        myPDF.StartPDF
        myPDF.WritePDF "Hello world !", True
        myPDF.WritePDF "This is a new row ", True
        myPDF.WritePDF "and I can write in BOLD ", False, pdfBold
        myPDF.WritePDF "or ITALIC ", False, pdfItalic
        myPDF.WritePDF "or BOTH !", False, pdfBoldItalic
        myPDF.WritePDF "And so and so ...", True
        
        Dim i
        For i = 0 To 345 Step 15
            myPDF.SetOrigin 300, 500, i
            myPDF.WritePDF "--- NEW - text rotated by " & i & "°", False, pdfRegular
        Next
        myPDF.NewPage
        myPDF.WritePDF "This is another page !", True
        myPDF.EndPDF
    %>
    </script>
    Lo script non restituisce errori, ma il file pdf non viene generato.


  3. #3
    Utente di HTML.it L'avatar di fraude
    Registrato dal
    Feb 2004
    Messaggi
    2,870
    up

  4. #4
    Utente di HTML.it L'avatar di Baol74
    Registrato dal
    Jul 2002
    Messaggi
    2,004
    Ma quella è una classe in visual basic!
    Se la vuoi usare devi compilarla e installarla sul server.
    Dopodiche potrai fare una cosa tipo:

    Set myPdf = Server.CreateObject("project1.vb2pdf")

    Perchè non usi fpdf?

  5. #5
    Utente di HTML.it L'avatar di fraude
    Registrato dal
    Feb 2004
    Messaggi
    2,870
    Puoi darmi, per piacere, indicazioni (o un link con le istruzioni) su come devo compilare la classe e installarla sul server ?

    Non uso FPDF perchè per ciò che devo fare è esagerata

    Grazie

  6. #6
    Utente di HTML.it L'avatar di Baol74
    Registrato dal
    Jul 2002
    Messaggi
    2,004
    Apri Visual Studio 6. Crei un progetto dll gli dai un nome. Crei una classe e gli dai un nome. Butti dentro il condice e compili. Prendi la dll e la registri e dovrebbe andare.

    Il prog id sarà NomeProgetto.NomeClasse

    Quindi

    Set myPdf = Server.CreateObject("NomeProgetto.NomeClasse")

    Comunque se fai una ricerchina trovi invormazioni più dettagliate.

    E comunque con fpdf puoi fare solo cose semplici.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.