IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

imprimer 32 vs 64bit


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Décembre 2007
    Messages
    83
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Décembre 2007
    Messages : 83
    Par défaut imprimer 32 vs 64bit
    Bonjour

    Je fait un programme (.dll) en vb.net ( visual studio) qui est utilisé dans le logiciel de dessin Autocad


    Sur mon poste de travail ( win xp 32bit + acad 2008 32bit) , je peut imprimer mais quand je mets mon DLL sur un autre ordinateur (win 7 64 bit + autocad 21012 64bit ), j'obtient un erreur : ElockViolation.

    Les 2 ordinateurs utilise la même imprimante réseau.


    Voici mon code de la section pour imprimer. Avant, j'ai affecter le nom de l'imprimante, et la grosseur du papier .

    Quelqu'un a une idée pour m'aider??


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
     
     
    If PlotFactory.ProcessPlotState = Autodesk.AutoCAD.PlottingServices.ProcessPlotState.NotPlotting Then
    Using acPlEng As PlotEngine = PlotFactory.CreatePublishEngine()
    '' Track the plot progress with a Progress dialog
    Dim acPlProgDlg As PlotProgressDialog = New PlotProgressDialog(False, 1, True)
    Using (acPlProgDlg)
    '' Define the status messages to display when plotting starts
    acPlProgDlg.PlotMsgString(PlotMessageIndex.DialogTitle) = "Plot Progress"
    acPlProgDlg.PlotMsgString(PlotMessageIndex.CancelJobButtonMessage) = "Cancel Job"
    acPlProgDlg.PlotMsgString(PlotMessageIndex.CancelSheetButtonMessage) = "Cancel Sheet"
    acPlProgDlg.PlotMsgString(PlotMessageIndex.SheetSetProgressCaption) = "Sheet Set Progress"
    acPlProgDlg.PlotMsgString(PlotMessageIndex.SheetProgressCaption) = "Sheet Progress"
    '' Set the plot progress range
    acPlProgDlg.LowerPlotProgressRange = 0
    acPlProgDlg.UpperPlotProgressRange = 100
    acPlProgDlg.PlotProgressPos = 0
    '' Display the Progress dialog
    acPlProgDlg.OnBeginPlot()
    acPlProgDlg.IsVisible = True
    '' Start to plot the layout
    acPlEng.BeginPlot(acPlProgDlg, Nothing)
    '' Define the plot output
    'acPlEng.BeginDocument(acPlInfo, acDoc.Name, Nothing, 1, True, "c:\myplot")
    acPlEng.BeginDocument(acPlInfo, acDoc.Name, Nothing, 1, False, "c:\myplot")
    '' Display information about the current plot
    acPlProgDlg.PlotMsgString(PlotMessageIndex.Status) = "Plotting: " & acDoc.Name & " - " & acLayout.LayoutName
    '' Set the sheet progress range
    acPlProgDlg.OnBeginSheet()
    acPlProgDlg.LowerSheetProgressRange = 0
    acPlProgDlg.UpperSheetProgressRange = 100
    acPlProgDlg.SheetProgressPos = 0
     
     
    'l'erreur arrive ici 
     
     
    '' Plot the first sheet/layout
    Dim acPlPageInfo As PlotPageInfo = New PlotPageInfo()
    acPlEng.BeginPage(acPlPageInfo, acPlInfo, True, Nothing)
     
     
     
     
     
     
    acPlEng.BeginGenerateGraphics(Nothing)
    acPlEng.EndGenerateGraphics(Nothing)
     
     
    '' Finish plotting the sheet/layout
    acPlEng.EndPage(Nothing)
    acPlProgDlg.SheetProgressPos = 100
    acPlProgDlg.OnEndSheet()
    '' Finish plotting the document
    acPlEng.EndDocument(Nothing)
    '' Finish the plot
    acPlProgDlg.PlotProgressPos = 100
    acPlProgDlg.OnEndPlot()
    acPlEng.EndPlot(Nothing)
     
    EndUsing
    EndUsing
    EndIf

  2. #2
    Expert confirmé Avatar de Graffito
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    5 993
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2006
    Messages : 5 993
    Par défaut
    Essaye de forcer ton projet en 32 bits (x86 au lieu de anycpu) :
    1. Go to the startup project of your program.
    2. Open the properties window.
    3. Click the compile tab.
    4. Click advanced compile options.
    5. Change the target CPU options to x86.

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Décembre 2007
    Messages
    83
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Décembre 2007
    Messages : 83
    Par défaut imprimer en vb.net
    Merci de ton aide Graffito


    Je viens d'essayer en compilant 64bit, 32 bit et any cpu et toujours le même problème.

    quelqu'un a une autre idée???

Discussions similaires

  1. [VB.NET]Comment Imprimer une form
    Par bernard06 dans le forum Windows Forms
    Réponses: 4
    Dernier message: 19/10/2011, 17h43
  2. Comment imprimer des tabulations ?
    Par Invité dans le forum C++Builder
    Réponses: 2
    Dernier message: 27/11/2002, 11h30
  3. [VB6][Flexgrid] Imprimer
    Par tiboleo dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 24/10/2002, 14h14
  4. [VB6] [Outlook] Imprimer un mail en VB
    Par der dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 12/09/2002, 14h20
  5. Comment imprimer le contenu d'un TStringGrid
    Par scorpiwolf dans le forum C++Builder
    Réponses: 2
    Dernier message: 19/06/2002, 15h41

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo