Cherche informations

Question

Bonjour,
j'ai énormément de mal avec l'impression sous vb6. Je ne comprend pas et trés franchement la plupart des bouquins ne font qu'éffleuré le sujet. Aussi je cherche un livre, site, ou n'importe quoi qui pourrait m'en apprendre vraiment à ce propos (savoir mettre en forme surtout). La Fn.. et Charl... n'ont pas pu me renseigner, voila pkoi je m'adresse à vous ici, si vous avez des infos, merci bcp d'avance.

cs_RedDog · Answer

VB cours

Sur ce site tu trouveras beaucoup de chose, pour imprimer sous VB6 d'une manière générale, tu veras que c'est pas trop compliqué, il te suffit juste de créer des procédures adaptés à ce que tu veux faire.

Ex:
Ca peut donner un truc de ce genre là ou mieux
Code en VB4

Sub ImpReady(dX As Integer, dY As Integer)
' dX: taille de l'objet à imprimer selon X
' dY: taille de l'objet à imprimer selon Y

' Orientation du papierIf Option3.Value True Then Printer.Orientation 1If Option8.Value True Then Printer.Orientation 2

' Qualité d'impressionIf Option9.Value True Then Printer.PrintQuality -1If Option10.Value True Then Printert.PrintQuality -3If Option11.Value True Then Printert.PrintQuality -4

' Impression en niveau de gris
If Check1.Value = 1 Then
Printer.ColorMode = 1
Else
Printer.ColorMode = 2
End If

' Impression recto verso (avec orientation en cours)If Check2.Value 1 Then Printer.Duplex 1

' Taille de la feuille
' A4 par défaut, combobox non codé
Printer.PaperSize = 9

' Placement sur la feuille
Printer.ScaleMode = 7 'en centimètres

' **** DroiteIf Option1.Value True And Check3.Value 0 Then
Printer.CurrentX = 1 '1cm
End If

' **** GaucheIf Option2.Value True And Check3.Value 0 Then
Select Case Option3.Value
Case True
' si portrait
Printer.CurrentX = 20 - dX
Case False
' si paysage
Printer.CurrentX = 28.7 - dX
End Select
End If

' **** CentreIf Option4.Value True And Check3.Value 0 Then
Select Case Option3.Value
Case True
' si portrait
Printer.CurrentX = (20 - dX) / 2
Case False
' si paysage
Printer.CurrentX = (28.7 - dX) / 2
End Select
End If

' **** HautIf Option5.Value True And Check3.Value 0 Then
Printer.CurrentY = 1 '1cm
End If

' **** BasIf Option6.Value True And Check3.Value 0 Then
Select Case Option3.Value
Case True
' si portrait
Printer.CurrentX = 28.7 - dY
Case False
' si paysage
Printer.CurrentX = 20 - dY
End Select
End If

' **** MilieuIf Option7.Value True And Check3.Value 0 Then
Select Case Option3.Value
Case True
' si portrait
Printer.CurrentX = (28.7 - dY) / 2
Case False
' si paysage
Printer.CurrentX = (20 - dY) / 2
End Select
End If

' **** Imprimer aux coordonnées
If Check3.Value = 1 Then
Printer.CurrentX = CInt(Text2.Text)
Printer.CurrentY = CInt(Text3.Text)
End If

' Nombre de copies
Dim strtext As String
strtext = Text1.Text
Dim inttext As Integer
inttext = CInt(strtext)
Printer.Copies = inttext

End Sub

Cherche informations

1 réponse

Discussions similaires