[VB.net] Imprimer en A0 et A1

Imprimer en A0 et A1 [VB.net] - VB/VBA/VBS - Programmation

Marsh Posté le 15-11-2005 à 16:15:32    

Bonjour !
 
Je suis en train de faire une macro pour transformer des fichiers en pdf. J'utilise donc la fonction printout en specifiant comme imprimante mon imprimante pdf.
 
Je specifie la taille de ma feuille avec la fonction : Size = Printing.PaperKind.A2 ou Size = Printing.PaperKind.A4Rotated... mais les tailles A1 et A0 ne sont pas specifié par defaut !
 
Je les ais donc créé de la maniere suivante :
Dim A0 as new PaperSize("A0",3504,4954) (car l'unite par defaut est le 0.01 pouce...enfin je crois)
Dim A1 ...
 
et apres je specifie : size = A0.Kind ou size = A1.kind
 
Mais le probleme c'est que ca ne marche pas car lorsque j'utilise ces tailles personnaliser, mon fichier pdf est toujours de taille 215.9x279.4mm !
 
J'ai egalement essayer de definir ces tailles en mm mais ca ne change rien !
 
Alors est-ce que quelqu'un sait comment imprimmer un document en A0 ?
 
Merci d'avance


Message édité par lecknaat le 15-11-2005 à 16:18:25
Reply

Marsh Posté le 15-11-2005 à 16:15:32   

Reply

Marsh Posté le 17-11-2005 à 09:02:16    

Bonjour!
 
Peut être que le pilote de ton imprimante postscript ne le permet pas. Essaye de trouver une imprimante postscript qui te le permet.
 
@+

Reply

Marsh Posté le 17-11-2005 à 11:08:36    

Bonjour !
 
Si si, elle supporte le A0 car lorsque je fais fichier imprimer, et que je choisi manuellement le format A0 dans les options avancees, j'obtient bien le bon resultat...
 
Je pense donc que c'est un probleme de programmation de la taille custom...

Reply

Marsh Posté le 17-11-2005 à 12:13:20    

Salut,
 
A ce que j'ai lu il faut que tu fasse appel au printersetting.papersize. Je ne suis pas trop dans le sujet, mais voilà quelques liens qui te permettront surement de trouver.
 
constructeur papersize
printersetting.pazpersizecollection
class papersize
 
Bon courage


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Marsh Posté le 17-11-2005 à 12:47:47    

Merci watashi c'est cool, ca doit etre ca !
 
Mais je n'arrive pas a definir la taille custom quand meme... est ce que quelqu'un comprends comment definir les proprietes width et height de custom ?

Reply

Marsh Posté le 25-11-2005 à 13:05:46    

Desole mais je n'arrive toujours pas a faire ce que je veux...  
 
Je pense que je dois mal programmer ! Avant d'appeler le support de microsoft de demandes si quelqu'un peut essayer de creer un fichier pdf (imprimant postscript) au format A0 ...ca serait cool (surtout si cette personne y arrive)  
 
Merci d'avance !

Reply

Marsh Posté le 25-11-2005 à 16:18:19    

Si tu plaçais ton code peut-être que quelqu'un pourrait y jeter un oeil pour voir ce qui ne va pas :)


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Marsh Posté le 25-11-2005 à 16:35:42    

Pas de probleme...
 

Code :
  1. Imports System.IO
  2. Imports System.Drawing.Printing.PaperSize
  3. Imports System.Drawing.Printing
  6.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  8.         '---Il faut que Solid Edge soit lancé---
  9.         Try
  10.             objApp = GetObject(, "SolidEdge.Application" )
  11.         Catch ex As Exception
  12.             MessageBox.Show("Solid Edge doit tourner", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
  13.             System.Threading.Thread.CurrentThread.Abort()
  14.         End Try
  15.         '---------------------------------------
  17.         '---Il faut que le document ouvert soit un draft---
  18.         Try
  19.             objDoc = objApp.ActiveDocument
  20.         Catch ex As Exception
  21.             MessageBox.Show("Le fichier ouvert doit être un draft", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
  22.             System.Threading.Thread.CurrentThread.Abort()
  23.         End Try
  24.         '--------------------------------------------------
  26.         Nom = Microsoft.VisualBasic.Left(objDoc.Name, objDoc.Name.Length - 4)
  28.         '----------------------
  29.         '---Revision manager---
  30.         '----------------------
  31.         Try
  32.             DoWorkRM(StartRevisionManager())
  33.         Catch ex As Exception
  34.             MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
  35.         End Try
  37.         objAppGR = GetObject(, "RevisionManager.Application" )
  39.         Try
  40.             objDocGR = objAppGR.Open(objDoc.FullName, 2)
  41.         Catch ex As Exception
  42.             MessageBox.Show("Sauvegarder le document et relancer la macro", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
  43.             System.Threading.Thread.CurrentThread.Abort()
  44.         End Try
  45.         objDocGR = objAppGR.Open(objDoc.FullName, 2)
  46.         objLinkedDocs = objDocGR.LinkedDocuments(RevisionManager.LinkTypeConstants.seLinkTypeAll)
  47.         If objLinkedDocs.Count <> 0 Then
  48.             objLinkedDoc = objLinkedDocs.Item(1)
  49.             Dim extension As String
  50.             extension = Microsoft.VisualBasic.Right(objLinkedDoc.FullName, 3)
  53.             Select Case extension
  54.                 Case "par", "PAR", "Par", "psm", "PSM", "Psm", "pwd", "PWD", "Pwd", "asm", "ASM", "Asm"
  55.                     Dim objProperties As SolidEdgeFileProperties.PropertySets
  56.                     Try
  57.                         objProperties = CreateObject("SolidEdge.FileProperties" )
  58.                     Catch ex As Exception
  59.                         MessageBox.Show(objLinkedDoc.FullName & " ne peut être ouvert", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
  60.                         Exit Select
  61.                     End Try
  62.                     Try
  63.                         objProperties.Open(objLinkedDoc.FullName, True)
  64.                     Catch ex As Exception
  65.                         MessageBox.Show(objLinkedDoc.FullName & " ne peut être ouvert", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
  66.                         Exit Select
  67.                     End Try
  69.                     Numero = objLinkedDoc.DocNum
  70.                     Revision = objLinkedDoc.Revision
  71.              
  72.                 Case Else
  73.                     MsgBox(objLinkedDoc.FullName & " : type de fichier non traité", MsgBoxStyle.Exclamation)
  74.             End Select
  76.         End If
  77.         '----------------------
  80.         Nom_final = (Numero + "~" + Revision + " " + Nom)
  81.         'MsgBox(Nom_final)
  82.         Dossier = objDoc.Path
  84.         Dim Orientation As Integer
  85.         'Dim Size As SolidEdgeDraft.PaperSizeConstants
  86.         Dim Size As Object
  89.         objsheet = objDoc.ActiveSheet
  90.         taille = objsheet.SheetSetup.SheetSizeOption
  91.         Dim A0 As New PaperSize("A0", PrinterUnitConvert.Convert(84100, PrinterUnit.HundredthsOfAMillimeter, PrinterUnit.Display), PrinterUnitConvert.Convert(118900, PrinterUnit.HundredthsOfAMillimeter, PrinterUnit.Display))
  92.         Dim A0R As New PaperSize("A0R", 1189, 841)
  93.         Dim A1 As New PaperSize("A1", 594, 841)
  94.         Dim A1R As New PaperSize("A1R", 841, 594)
  96.              Select Case taille
  97.             Case 36
  98.                 Orientation = 1
  99.                 Size = A0.Kind
  100.             Case 37
  101.                 Orientation = 2
  102.                 Size = A0R.Kind
  103.             Case 34
  104.                 Orientation = 1
  105.                 Size = A1.Kind
  106.             Case 35
  107.                 Orientation = 2
  108.                 Size = A1R.Kind
  109.             Case 32
  110.                 Orientation = 1
  111.                 Size = Printing.PaperKind.A2
  112.             Case 33
  113.                 Orientation = 2
  114.                 Size = Printing.PaperKind.A2
  115.             Case 30
  116.                 Orientation = 1
  117.                 Size = Printing.PaperKind.A3
  118.             Case 31
  119.                 Orientation = 2
  120.                 Size = Printing.PaperKind.A3
  121.             Case 28
  122.                 Orientation = 1
  123.                 Size = Printing.PaperKind.A4
  124.         End Select
  126.         objDoc.SaveAs(("C:\WINDOWS\Temp\" + Nom_final + ".dft" ))
  127.         objDoc.PrintOut("PDF995", 1, , Size, , False)
  128.         ''File.Copy(("C:\WINDOWS\Temp\" + Nom_final + ".pdf" ), (Dossier + "\" + Nom_final + ".pdf" ))
  129.         ''File.Delete(("C:\WINDOWS\Temp\" + Nom_final + ".pdf" ))
  130.         'File.Delete(("C:\WINDOWS\Temp\" + Nom_final + ".dft" ))
  131.         Me.Close()
  133.         '---Fermeture
  134.         objApp = Nothing
  135.         objProp = Nothing
  136.         objDoc = Nothing
  137.         objProperties = Nothing
  138.         objsheet = Nothing
  139.         taille = Nothing
  141.     End Sub
  143. End Class


Reply

Marsh Posté le 29-11-2005 à 15:45:34    

Alors, est-ce que quelqu'un a deja reussi a definir une taille personaliser de papier ?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed