Drucker mit VBA verwenden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Printer_A4() Dim i As Integer On Error Resume Next For i = 0 To 9 Application.ActivePrinter = "\\ABC123.xnet.FIRMENNAME\DRUCKERNAME_P1 auf Ne0" & i & ":" If Err = 0 Then Exit For Err.Clear If i = 9 Then MsgBox ("Bitte den A4-Drucker auswählen!") Application.Dialogs(xlDialogPrinterSetup).Show conA4 = Application.ActivePrinter Exit For End If Next i conA4 = Application.ActivePrinter End Sub

Onur, völlig ironiefrei:
Es ist gut, dass jemand die Diskussionsqualität und Forenregeln überwacht. Und du machst das gut!
Aber: solange Hans dich nicht offiziell zum Moderator ernannt hat, bist du halt "nur" ein selbsternannter Foren-Sherrif.
Und ich bin nicht Daniel, darum ist das hier mein letzter Post in diesem Zweig, ich lasse mich nicht zu einer unnötigen Endlosdiskussion hinreißen. Damit wir in Zukunft nicht weiter aneinander geraten und damit den Forenfrieden stören, möchte ich dich bitten mir bis auf weiteres keine Empfehlungen über die Forennutzung mehr zu machen oder zu bewerten was mir "zusteht", sonden meine Beiträge schlicht zu ignorieren.
Es sei denn, natürlich, Hans segnet deinen Moderatorposten ab. Was ich begrüßen würde, dem Forum würde es nur gut tun.
LG,
Klaus M.

Private Sub BenutzerDrucken() Dim strPrinterName As String Dim Druckwahl As Boolean strPrinterName = Application.ActivePrinter Druckwahl = Application.Dialogs(xlDialogPrinterSetup).Show If Druckwahl = False Then Exit Sub ActiveSheet.PageSetup.Orientation = xlPortrait 'je nach dem ob man es braucht 'ActiveSheet.PageSetup.PrintArea = "$A$1:$J$48" ActiveSheet.PrintOut Application.ActivePrinter = strPrinterName ActiveSheet.PageSetup.PrintArea = "" End Sub

Code: [Cc] Public Sub Test() ActiveSheet.PrintOut ActivePrinter:="\\SRVADS01.beratex.intranet\TWT Briefpapier" End Sub

Hi Nepukum,
das wäre mir auch am liebsten, aber leider wird dann direkt das ganze Tabellenblatt gedruckt.
Mein Fehler, hätte besser den ganzen Code gepostet. Der sieht nämlich wie folgt aus und gibt variabel vor wie viele der 15 Seiten gedruckt werden sollen.
Nimm ich deinen Code, kommen leider immer direkt alle 15 Seiten.
Dafür hast du doch sicher auch noch eine Lösung oder : ) ?


Sub DruckTestCertifikat()
Dim strDruckerAktiv$, i%, max%, vz%, bz%, sStdDrucker$
sStdDrucker = Application.ActivePrinter
ActiveSheet.PrintOut ActivePrinter:="\\SRVADS01.beratex.intranet\TWT Briefpapier"
'Application.ActivePrinter = "\\SRVADS01.beratex.intranet\TWT Briefpapier auf Ne08:"
strDruckerAktiv = Application.ActivePrinter
max = Sheets("DQ").Range("AH2").Value
If max  15 Then max = 15
For i = 1 To max
vz = i * 51 - 50: bz = i * 51
Worksheets("T.-Cert.").Range("A" & vz & ":H" & bz).PrintOut Copies:=1 'PrintPreview
Next i
Application.ActivePrinter = sStdDrucker
End Sub

Gruß Andreas

Beliebteste Forumthreads (12 Monate)

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread