Druckvorschau erstellen

  • VB.NET
  • .NET (FX) 3.0–3.5

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Orion.

    Druckvorschau erstellen

    Guten Tag Zusammen
    Habe wieder was, Ich hab eine Funktion die mir Textboxen auf ein vordefiniertes Formular druckt. Wollte mal fragen ob man das abgreifen kann um eine Vorschau zu erstellen welche runterskaliert ist. Weil als BG ein vorgeschriebenes png genutzt wird in voller A4 Grösse kann man das nicht in einer Form oder sonst wie darstellen. Wer sich das wirklich antun will hier ist der Code beim Drucken:
    Spoiler anzeigen

    Quellcode

    1. Private Sub Button23_Click(sender As System.Object, e As System.EventArgs) Handles Button23.Click
    2. If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
    3. PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
    4. PrintDocument1.Print()
    5. End If
    6. End Sub
    7. Public Sub PrintDocument1_PrintPage(ByVal sender As System.Object, _
    8. ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
    9. Handles PrintDocument1.PrintPage
    10. e.Graphics.DrawImage(Druckvorschau.PictureBox1.Image, 0, 0)
    11. Try
    13. Try
    14. 'RichTextbox *****
    16. No1 = False
    17. Dim str As String = RichTextBox1.Text
    18. Dim splitStr As String() = str.Split(","c)
    19. Dim i As Integer
    20. Dim String1 As String
    21. Dim String2 As String
    22. Dim String3 As String
    23. Dim Gesamtstring1 As String
    25. String1 = splitStr(0).ToString()
    26. String2 = splitStr(1).ToString()
    27. String3 = splitStr(2).ToString()
    28. Gesamtstring1 = splitStr(i) + Environment.NewLine + String2 + Environment.NewLine + String3
    29. e.Graphics.DrawString(Gesamtstring1, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(90, 200))
    31. No1 = True
    33. 'RichtTextbox ***** Ende
    34. Catch
    35. MsgBox("Der Text aus dem Feld ***** konnte nicht übergeben werden")
    36. No1 = True
    37. End Try
    39. Try
    40. 'RichTextbox ******
    42. No2 = False
    43. Dim str2 As String = RichTextBox2.Text
    44. Dim splitStr2 As String() = str2.Split(","c)
    46. Dim String21 As String
    47. Dim String22 As String
    48. Dim String23 As String
    49. Dim Gesamtstring2 As String
    51. String21 = splitStr2(0).ToString()
    52. String22 = splitStr2(1).ToString()
    53. String23 = splitStr2(2).ToString()
    54. Gesamtstring2 = String21 + Environment.NewLine + String22 + Environment.NewLine + String23
    55. e.Graphics.DrawString(Gesamtstring2, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(90, 300))
    57. No2 = True
    58. 'RichtTextbox ****** Ende
    59. Catch
    60. MsgBox("Der Text aus dem Feld ****** konnte nicht übergeben werden")
    61. No2 = True
    62. End Try
    64. Try
    66. No3 = False
    67. 'RichTextbox ******
    68. Dim str3 As String = RichTextBox3.Text
    69. e.Graphics.DrawString(str3, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(90, 400))
    70. 'RichtTextbox ****** Ende
    71. No3 = True
    72. Catch
    73. MsgBox("Der Text aus dem Feld des ****** konnte nicht übergeben werden")
    74. No3 = True
    75. End Try
    76. Try
    78. No4 = False
    79. 'RichTextbox *****
    80. Dim str4 As String = RichTextBox4.Text
    81. Dim str41 As String = DateTimePicker2.Text
    82. e.Graphics.DrawString(str4, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(90, 465))
    83. e.Graphics.DrawString(str41, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(90, 480))
    84. 'RichtTextbox ******
    85. No4 = True
    86. Catch
    87. MsgBox("Der Text aus dem Feld ***** konnte nicht übergeben werden")
    88. No4 = True
    89. End Try
    91. 'Beigefügte Dokumente
    92. Try
    94. No5 = False
    95. If RichTextBox5.Text.Contains(",") Then
    96. Dim str9 As String = RichTextBox5.Text
    97. Dim splitStr9 As String() = str9.Split(","c)
    98. Dim Gesamtstring7 As String
    99. Gesamtstring7 = ""
    101. For Each c In splitStr9
    102. Gesamtstring7 &= c & Environment.NewLine
    103. Next
    104. e.Graphics.DrawString(Gesamtstring7, New Font("Franklin Gothic Book", 9), Brushes.Black, New Point(90, 535))
    105. Else
    106. Dim str9 As String = RichTextBox5.Text
    107. e.Graphics.DrawString(str9, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(90, 535))
    108. End If
    109. No5 = True
    111. Catch
    112. MsgBox("Der Text aus dem Feld der beigefügten Dokumente konnte nicht übergeben werden")
    113. No5 = True
    114. End Try
    115. 'Beigefügte Dokumente Ende
    116. Try
    118. No6 = False
    119. 'RichTextbox*******
    120. Dim str6 As String = RichTextBox6.Text
    121. Dim splitStr6 As String() = str6.Split(","c)
    123. Dim String61 As String
    124. Dim String62 As String
    125. Dim String63 As String
    126. Dim Gesamtstring6 As String
    128. String61 = splitStr6(0).ToString()
    129. String62 = splitStr6(1).ToString()
    130. String63 = splitStr6(2).ToString()
    131. Gesamtstring6 = String61 + Environment.NewLine + String62 + Environment.NewLine + String63
    132. e.Graphics.DrawString(Gesamtstring6, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(450, 300))
    133. 'RichtTextbox *****
    134. No6 = True
    135. Catch
    136. MsgBox("Der Text aus dem Feld ***** konnte nicht übergeben werden")
    137. No6 = True
    138. End Try
    139. Try
    141. No7 = False
    142. 'RichTextbox *****
    143. Dim str7 As String = RichTextBox7.Text
    144. Dim splitStr7 As String() = str7.Split(","c)
    146. Dim String71 As String
    147. Dim String72 As String
    148. Dim String73 As String
    149. Dim Gesamtstring7 As String
    151. String71 = splitStr7(0).ToString()
    152. String72 = splitStr7(1).ToString()
    153. String73 = splitStr7(2).ToString()
    154. Gesamtstring7 = String71 + Environment.NewLine + String72 + Environment.NewLine + String73
    155. e.Graphics.DrawString(Gesamtstring7, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(450, 400))
    156. 'RichtTextbox ******
    157. No7 = True
    158. Catch
    159. MsgBox("Der Text aus dem Feld ****** konnte nicht übergeben werden")
    160. No7 = True
    161. End Try
    162. Try
    164. No8 = False
    165. 'RichTextbox *****
    166. Dim str8 As String = RichTextBox8.Text
    167. e.Graphics.DrawString(str8, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(450, 510))
    168. 'RichtTextbox *****
    169. No8 = True
    170. Catch
    171. MsgBox("Der Text aus dem Feld ***** konnte nicht übergeben werden")
    172. No8 = True
    173. End Try
    174. Try
    176. No9 = False
    177. 'RichTextbox *****
    178. Dim str9 As String = TextBox9.Text
    179. e.Graphics.DrawString(str9, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(85, 600))
    180. 'RichtTextbox ***** Ende
    181. No9 = True
    182. Catch
    183. MsgBox("Der Text aus dem Feld ****** konnte nicht übergeben werden")
    184. No9 = True
    185. End Try
    186. Try
    188. No10 = False
    189. 'RichTextbox *****
    190. Dim str11 As String = ComboBox1.Text
    191. Dim str10 As String = TextBox1.Text
    192. e.Graphics.DrawString(str10, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(200, 600))
    193. e.Graphics.DrawString(str11, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(240, 600))
    194. 'RichtTextbox ***** Ende
    195. No10 = True
    196. Catch
    197. MsgBox("Der Text aus dem Feld ****** konnte nicht übergeben werden")
    198. No10 = True
    199. End Try
    200. Try
    202. No11 = False
    203. 'Richtextbox *****
    204. Dim Str12 As String = ComboBox10.Text
    205. e.Graphics.DrawString(Str12, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(290, 600))
    206. 'RichTextBox ***** Ende
    207. No11 = True
    208. Catch
    209. MsgBox("Der Text aus dem Feld ***** konnte nicht übergeben werden")
    210. No11 = True
    211. End Try
    212. Try
    214. No12 = False
    215. 'Richtextbox *****
    216. Dim Str12 As String = ComboBox11.Text
    217. e.Graphics.DrawString(Str12, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(440, 600))
    218. 'RichTextBox ***** Ende
    219. No12 = True
    220. Catch
    221. MsgBox("Der Text aus dem Feld ***** konnte nicht übergeben werden")
    222. No12 = True
    223. End Try
    224. Try
    226. No13 = False
    227. 'Richtextbox *****
    228. Dim Str13 As String = ComboBox12.Text
    229. e.Graphics.DrawString(Str13, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(550, 600))
    230. 'RichTextBox ***** Ende
    231. No13 = True
    232. Catch
    233. MsgBox("Der Text aus dem Feld ***** konnte nicht übergeben werden")
    234. No13 = True
    235. End Try
    236. Try
    238. No14 = False
    239. 'Richtextbox *****
    240. Dim Str14 As String = TextBox10.Text
    241. e.Graphics.DrawString(Str14, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(640, 600))
    242. 'RichTextBox ***** Ende
    243. No14 = True
    244. Catch
    245. MsgBox("Der Text aus dem Feld ***** konnte nicht übergeben werden")
    246. No14 = True
    247. End Try
    248. Try
    250. No15 = False
    251. 'Richtextbox *****
    252. Dim Str15 As String = TextBox11.Text
    253. e.Graphics.DrawString(Str15, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(740, 600))
    254. 'RichTextBox ***** Ende
    255. No15 = True
    256. Catch
    257. MsgBox("Der Text aus dem Feld ***** konnte nicht übergeben werden")
    258. No15 = True
    259. End Try
    260. Try
    262. No16 = False
    263. 'Richtextbox *****
    264. Dim Str16 As String = RichTextBox9.Text
    265. e.Graphics.DrawString(Str16, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(90, 770))
    266. 'RichTextBox ***** Ende
    267. No16 = True
    268. Catch
    269. MsgBox("Der Text aus dem Feld ***** konnte nicht übergeben werden")
    270. No16 = True
    271. End Try
    272. Try
    274. No17 = False
    275. 'Richtextbox *****
    276. If CheckBox1.Checked = True Then
    277. Dim Str17 As String = "✔"
    278. e.Graphics.DrawString(Str17, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(285, 880))
    279. 'RichTextBox ***** Ende
    280. No17 = True
    281. End If
    282. If CheckBox1.Checked = False Then
    283. No17 = True
    284. End If
    285. Catch
    286. No17 = True
    287. End Try
    288. Try
    290. No18 = False
    291. 'Richtextbox *****
    292. If RadioButton1.Checked = True Then
    293. Dim Str18 As String = "✔"
    294. e.Graphics.DrawString(Str18, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(120, 915))
    295. 'RichTextBox *****
    296. No18 = True
    297. End If
    298. If RadioButton2.Checked = True Then
    299. Dim Str19 As String = "✔"
    300. e.Graphics.DrawString(Str19, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(120, 930))
    301. 'RichTextBox *****
    302. No18 = True
    304. End If
    305. Catch
    306. No18 = True
    307. End Try
    308. Try
    310. No19 = False
    311. 'Richtextbox *****
    313. Dim Str20 As String = RichTextBox13.Text
    314. Dim Str21 As String = RichTextBox11.Text
    315. Dim Str22 As String = TextBox2.Text
    316. Dim Str23 As String = TextBox3.Text
    317. Dim Str24 As String = TextBox4.Text
    318. Dim Str25 As String = TextBox5.Text
    319. Dim Str26 As String = TextBox6.Text
    320. Dim Str27 As String = TextBox7.Text
    321. Dim Str28 As String = TextBox8.Text
    322. e.Graphics.DrawString(Str20, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(530, 770))
    323. e.Graphics.DrawString(Str21, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(530, 800))
    324. e.Graphics.DrawString(Str24, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(620, 770))
    325. e.Graphics.DrawString(Str28, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(620, 785))
    326. e.Graphics.DrawString(Str22, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(620, 800))
    327. e.Graphics.DrawString(Str25, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(620, 815))
    328. e.Graphics.DrawString(Str26, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(620, 830))
    329. e.Graphics.DrawString(Str27, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(620, 845))
    330. e.Graphics.DrawString(Str23, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(620, 870))
    331. 'RichTextBox ZuZahl Ende
    332. Dim Str29 As String = RichTextBox12.Text
    333. Dim Str30 As String = RichTextBox10.Text
    334. Dim Str31 As String = ComboBox20.Text
    335. Dim Str32 As String = ComboBox21.Text
    336. Dim Str33 As String = ComboBox22.Text
    337. Dim Str34 As String = ComboBox16.Text
    338. Dim Str35 As String = ComboBox7.Text
    339. Dim Str36 As String = ComboBox15.Text
    340. Dim Str37 As String = ComboBox9.Text
    341. e.Graphics.DrawString(Str29, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(710, 770))
    342. e.Graphics.DrawString(Str30, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(710, 800))
    343. e.Graphics.DrawString(Str32, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(635, 770))
    344. e.Graphics.DrawString(Str34, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(635, 785))
    345. e.Graphics.DrawString(Str31, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(635, 800))
    346. e.Graphics.DrawString(Str35, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(635, 815))
    347. e.Graphics.DrawString(Str37, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(635, 830))
    348. e.Graphics.DrawString(Str36, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(635, 845))
    349. e.Graphics.DrawString(Str33, New Font("Franklin Gothic Book", 8), Brushes.Black, New Point(635, 870))
    350. No19 = True
    352. Catch
    353. No19 = True
    354. End Try
    355. Try
    357. No20 = False
    358. 'Richtextbox *****
    359. Dim Str20 As String = ComboBox4.Text
    360. e.Graphics.DrawString(Str20, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(440, 915))
    361. 'RichTextBox ***** Ende
    362. No20 = True
    363. Catch
    364. MsgBox("Der Text aus dem Feld ***** konnte nicht übergeben werden")
    365. No20 = True
    366. End Try
    367. Try
    369. No21 = False
    370. 'Richtextbox *****
    371. Dim Str21 As String = ComboBox12.Text
    372. Dim Str22 As String = DateTimePicker1.Text
    373. e.Graphics.DrawString(Str21, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(75, 962))
    374. e.Graphics.DrawString(Str22, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(380, 962))
    375. 'RichTextBox *****Ende
    376. No21 = True
    377. Catch
    378. MsgBox("Der Text aus dem Feld ***** konnte nicht übergeben werden")
    379. No21 = True
    380. End Try
    381. Try
    382. 'Richtextbox *****
    383. No22 = False
    384. Dim str As String = RichTextBox14.Text
    385. Dim splitStr As String() = str.Split(","c)
    386. Dim i As Integer
    387. Dim String1 As String
    388. Dim String2 As String
    389. Dim String3 As String
    390. Dim Gesamtstring1 As String
    392. String1 = splitStr(0).ToString()
    393. String2 = splitStr(1).ToString()
    394. String3 = splitStr(2).ToString()
    395. Gesamtstring1 = splitStr(i) + Environment.NewLine + String2 + Environment.NewLine + String3
    397. e.Graphics.DrawString(Gesamtstring1, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(80, 1000))
    398. 'RichTextBox****** Ende
    399. No22 = True
    400. Catch
    401. MsgBox("Der Text aus dem Feld ****** konnte nicht übergeben werden")
    402. No22 = True
    403. End Try
    404. Try
    405. 'Richtextbox *****
    406. No23 = False
    407. Dim str As String = RichTextBox15.Text
    408. Dim splitStr As String() = str.Split(","c)
    409. Dim i As Integer
    410. Dim String1 As String
    411. Dim String2 As String
    412. Dim String3 As String
    413. Dim Gesamtstring1 As String
    415. String1 = splitStr(0).ToString()
    416. String2 = splitStr(1).ToString()
    417. String3 = splitStr(2).ToString()
    418. Gesamtstring1 = splitStr(i) + Environment.NewLine + String2 + Environment.NewLine + String3
    420. e.Graphics.DrawString(Gesamtstring1, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(320, 1000))
    421. 'RichTextBox ***** Ende
    422. No23 = True
    423. Catch
    424. MsgBox("Der Text aus dem Feld ***** konnte nicht übergeben werden")
    425. No23 = True
    426. End Try
    427. Try
    428. 'Richtextbox *****
    429. No24 = False
    430. Dim str As String = RichTextBox16.Text
    431. Dim str2 As String = DateTimePicker3.Text
    432. Dim splitStr As String() = str.Split(","c)
    433. Dim i As Integer
    434. Dim String1 As String
    435. Dim String2 As String
    436. Dim String3 As String
    437. Dim Gesamtstring1 As String
    439. String1 = splitStr(0).ToString()
    440. String2 = splitStr(1).ToString()
    441. String3 = splitStr(2).ToString()
    442. Gesamtstring1 = splitStr(i) + Environment.NewLine + String2 + Environment.NewLine + String3
    443. e.Graphics.DrawString(Gesamtstring1, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(585, 1000))
    444. e.Graphics.DrawString(str2, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(690, 975))
    445. 'RichTextBox ***** Ende
    446. No24 = True
    447. Catch
    448. MsgBox("Der Text aus dem Feld ***** konnte nicht übergeben werden")
    449. No24 = True
    450. End Try
    451. Try
    452. No25 = False
    453. 'Richtextbox*****
    454. Dim Str20 As String = ComboBox2.Text
    455. e.Graphics.DrawString(Str20, New Font("Franklin Gothic Book", 12), Brushes.Black, New Point(90, 1100))
    456. 'RichTextBox *****
    457. No25 = True
    458. Catch
    459. MsgBox("Der Text aus dem Feld ***** konnte nicht übergeben werden")
    460. No25 = True
    461. End Try
    462. ProgressBar1.Minimum = 0
    463. ProgressBar1.Maximum = 100
    464. If No1 = True Then
    465. ProgressBar1.Value = 4
    466. ProgressBar1.Update()
    467. End If
    468. If No2 = True Then
    469. ProgressBar1.Value = 8
    470. ProgressBar1.Update()
    471. End If
    473. If No3 = True Then
    474. ProgressBar1.Value = 12
    475. ProgressBar1.Update()
    476. End If
    477. If No4 = True Then
    478. ProgressBar1.Value = 16
    479. ProgressBar1.Update()
    480. End If
    481. If No5 = True Then
    482. ProgressBar1.Value = 20
    483. ProgressBar1.Update()
    484. End If
    486. If No6 = True Then
    487. ProgressBar1.Value = 24
    488. ProgressBar1.Update()
    489. End If
    490. If No7 = True Then
    491. ProgressBar1.Value = 28
    492. ProgressBar1.Update()
    493. End If
    494. If No8 = True Then
    495. ProgressBar1.Value = 32
    496. ProgressBar1.Update()
    497. End If
    499. If No9 = True Then
    500. ProgressBar1.Value = 36
    501. ProgressBar1.Update()
    502. End If
    503. If No10 = True Then
    504. ProgressBar1.Value = 40
    505. ProgressBar1.Update()
    506. End If
    507. If No11 = True Then
    508. ProgressBar1.Value = 44
    509. ProgressBar1.Update()
    510. End If
    512. If No12 = True Then
    513. ProgressBar1.Value = 48
    514. ProgressBar1.Update()
    515. End If
    516. If No13 = True Then
    517. ProgressBar1.Value = 52
    518. ProgressBar1.Update()
    519. End If
    520. If No14 = True Then
    521. ProgressBar1.Value = 56
    522. ProgressBar1.Update()
    523. End If
    525. If No15 = True Then
    526. ProgressBar1.Value = 60
    527. ProgressBar1.Update()
    528. End If
    529. If No16 = True Then
    530. ProgressBar1.Value = 64
    531. ProgressBar1.Update()
    532. End If
    533. If No17 = True Then
    534. ProgressBar1.Value = 68
    535. ProgressBar1.Update()
    536. End If
    538. If No18 = True Then
    539. ProgressBar1.Value = 72
    540. ProgressBar1.Update()
    541. End If
    542. If No19 = True Then
    543. ProgressBar1.Value = 76
    544. ProgressBar1.Update()
    545. End If
    546. If No20 = True Then
    547. ProgressBar1.Value = 80
    548. ProgressBar1.Update()
    549. End If
    551. If No21 = True Then
    552. ProgressBar1.Value = 84
    553. ProgressBar1.Update()
    554. End If
    555. If No22 = True Then
    556. ProgressBar1.Value = 88
    557. ProgressBar1.Update()
    558. End If
    559. If No23 = True Then
    560. ProgressBar1.Value = 92
    561. ProgressBar1.Update()
    562. End If
    564. If No24 = True Then
    565. ProgressBar1.Value = 96
    566. ProgressBar1.Update()
    567. End If
    568. If No25 = True Then
    569. ProgressBar1.Value = 100
    570. ProgressBar1.Update()
    571. End If
    572. If ProgressBar1.Value = 100 Then
    573. ProgressBar1.Value = 0
    574. ProgressBar1.Update()
    575. End If
    577. Label38.Text = "Stand der Datenverarbeitung:" & ProgressBar1.Value.ToString() + "%"
    579. Catch
    580. MsgBox("Fehler beim Drucken")
    582. End Try
    584. End Sub

    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    @Orion Drucke immer in das richtige Format. Mach ggf. einen Zwischenschritt, erstell ein Graphics-Objekt einmal per Document.Print(), zum anderen per Graphics.FromImage() und übergib dieses Objekt der Kern-Print-Routine.
    Das FromImage-Objekt kannst Du dann per Zoom skalieren wie Du willst.
    Graphics hat eine IsPrinting-Property. ;)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Was bedeutet ich müsste in der Druckvorschau den genau gleichen ellenlangen Code ausführen und dann per Graphics.FromImage eine Druckvorschau ausgeben oder?
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Orion schrieb:

    den genau gleichen ellenlangen Code ausführen
    tut man machen indem man eine Prozedur schreibt, in der der ellenlange Code genau einmal vorkommt und ihn dann von A oder von B mit entsprechenden Parametern aufruft. :D
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ja, ich weiss... Aber irgendwie vergess ich es jedes mal wieder wie's ging und da ist ein schnelles C&P halt schneller.
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Orion schrieb:

    da ist ein schnelles C&P halt schneller
    Das solltest Du Dir sofort abgewöhnen :!:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Okey, okey... dann schau ich mir das mal wieder an
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)