Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Command1_Click() MsgBox "sur le form : ===>> " & Me.ScaleX(3328, vbPixels, vbCentimeters) & " centimètres" & vbCrLf & _ "sur la picturebox : ===>> " & Picture1.ScaleX(3328, vbPixels, vbCentimeters) & " centimètres" & vbCrLf & _ "alors que sur l'imprimante ===>> " & Printer.ScaleX(3328, vbPixels, vbCentimeters) & " centimètres" End Sub
Private Sub Command1_Click() MsgBox "sur le form : ===>> " & Me.ScaleX(3328, vbPixels, vbCentimeters) & " centimètres" & vbCrLf & _ "sur la picturebox : ===>> " & Picture1.ScaleX(3328, vbPixels, vbCentimeters) & " centimètres" & vbCrLf & _ "alors que sur l'imprimante ===>> " & Printer.ScaleX(3328, vbPixels, vbCentimeters) & " centimètres" End Sub
Private Sub Command1_Click() MsgBox "sur le form : ===>> " & Me.ScaleX(331, vbMillimeters, vbCentimeters) & " centimètres" & vbCrLf & _ "sur la picturebox : ===>> " & Picture1.ScaleX(331, vbMillimeters, vbCentimeters) & " centimètres" & vbCrLf & _ "alors que sur l'imprimante ===>> " & Printer.ScaleX(331, vbMillimeters, vbCentimeters) & " centimètres" End Sub