[VB.net] Imprimer en A0 et A1

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB.net] Imprimer en A0 et A1

lecknaat

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

Publicité

beberf1

qui avale une noix de coco à c

Bonjour!

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

@+

lecknaat

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...

watashi

La démotivation : JAMAIS !

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 ;-)

lecknaat

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 ?

lecknaat

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 !

watashi

La démotivation : JAMAIS !

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 ;-)

lecknaat

Pas de probleme...

Code :

Imports System.IO
Imports System.Drawing.Printing.PaperSize
Imports System.Drawing.Printing
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'---Il faut que Solid Edge soit lancé---
Try
objApp = GetObject(, "SolidEdge.Application" )
Catch ex As Exception
MessageBox.Show("Solid Edge doit tourner", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
System.Threading.Thread.CurrentThread.Abort()
End Try
'---------------------------------------
'---Il faut que le document ouvert soit un draft---
Try
objDoc = objApp.ActiveDocument
Catch ex As Exception
MessageBox.Show("Le fichier ouvert doit être un draft", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
System.Threading.Thread.CurrentThread.Abort()
End Try
'--------------------------------------------------
Nom = Microsoft.VisualBasic.Left(objDoc.Name, objDoc.Name.Length - 4)
'----------------------
'---Revision manager---
'----------------------
Try
DoWorkRM(StartRevisionManager())
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
objAppGR = GetObject(, "RevisionManager.Application" )
Try
objDocGR = objAppGR.Open(objDoc.FullName, 2)
Catch ex As Exception
MessageBox.Show("Sauvegarder le document et relancer la macro", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
System.Threading.Thread.CurrentThread.Abort()
End Try
objDocGR = objAppGR.Open(objDoc.FullName, 2)
objLinkedDocs = objDocGR.LinkedDocuments(RevisionManager.LinkTypeConstants.seLinkTypeAll)
If objLinkedDocs.Count <> 0 Then
objLinkedDoc = objLinkedDocs.Item(1)
Dim extension As String
extension = Microsoft.VisualBasic.Right(objLinkedDoc.FullName, 3)
Select Case extension
Case "par", "PAR", "Par", "psm", "PSM", "Psm", "pwd", "PWD", "Pwd", "asm", "ASM", "Asm"
Dim objProperties As SolidEdgeFileProperties.PropertySets
Try
objProperties = CreateObject("SolidEdge.FileProperties" )
Catch ex As Exception
MessageBox.Show(objLinkedDoc.FullName & " ne peut être ouvert", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Select
End Try
Try
objProperties.Open(objLinkedDoc.FullName, True)
Catch ex As Exception
MessageBox.Show(objLinkedDoc.FullName & " ne peut être ouvert", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Select
End Try
Numero = objLinkedDoc.DocNum
Revision = objLinkedDoc.Revision
Case Else
MsgBox(objLinkedDoc.FullName & " : type de fichier non traité", MsgBoxStyle.Exclamation)
End Select
End If
'----------------------
Nom_final = (Numero + "~" + Revision + " " + Nom)
'MsgBox(Nom_final)
Dossier = objDoc.Path
Dim Orientation As Integer
'Dim Size As SolidEdgeDraft.PaperSizeConstants
Dim Size As Object
objsheet = objDoc.ActiveSheet
taille = objsheet.SheetSetup.SheetSizeOption
Dim A0 As New PaperSize("A0", PrinterUnitConvert.Convert(84100, PrinterUnit.HundredthsOfAMillimeter, PrinterUnit.Display), PrinterUnitConvert.Convert(118900, PrinterUnit.HundredthsOfAMillimeter, PrinterUnit.Display))
Dim A0R As New PaperSize("A0R", 1189, 841)
Dim A1 As New PaperSize("A1", 594, 841)
Dim A1R As New PaperSize("A1R", 841, 594)
Select Case taille
Case 36
Orientation = 1
Size = A0.Kind
Case 37
Orientation = 2
Size = A0R.Kind
Case 34
Orientation = 1
Size = A1.Kind
Case 35
Orientation = 2
Size = A1R.Kind
Case 32
Orientation = 1
Size = Printing.PaperKind.A2
Case 33
Orientation = 2
Size = Printing.PaperKind.A2
Case 30
Orientation = 1
Size = Printing.PaperKind.A3
Case 31
Orientation = 2
Size = Printing.PaperKind.A3
Case 28
Orientation = 1
Size = Printing.PaperKind.A4
End Select
objDoc.SaveAs(("C:\WINDOWS\Temp\" + Nom_final + ".dft" ))
objDoc.PrintOut("PDF995", 1, , Size, , False)
''File.Copy(("C:\WINDOWS\Temp\" + Nom_final + ".pdf" ), (Dossier + "\" + Nom_final + ".pdf" ))
''File.Delete(("C:\WINDOWS\Temp\" + Nom_final + ".pdf" ))
'File.Delete(("C:\WINDOWS\Temp\" + Nom_final + ".dft" ))
Me.Close()
'---Fermeture
objApp = Nothing
objProp = Nothing
objDoc = Nothing
objProperties = Nothing
objsheet = Nothing
taille = Nothing
End Sub
End Class

lecknaat

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB.net] Imprimer en A0 et A1

Sujets relatifs
Document à imprimer	Imprimer les repères d'indentation avec scite
imprimer pdf en ligne de commande	Recherche Spécifications W3C pour imprimer
Comment imprimer ?	imprimer avec jcreator
[html]imprimer en paysage avec window.print()	Imprimer les onglets voulus
javascript pour imprimer un document word	imprimer un fichier distant
Plus de sujets relatifs à : [VB.net] Imprimer en A0 et A1

Page générée en 0.077 secondes