Office: Probleme beim Versenden einer Datei

Hallo,
habe folgendes Problem habe eine Excel Datei die über ein Makro meine Tabelle versendet,bevor er die Tabelle versendet fragt er mich ob ich einen Ausdruck haben will drucke ich nun die Tabelle aus passen alle Druckereinstellungen,gebe ich ihm nun die Genehmigung die Tabelle zuversenden dann passen die Druckereinstellungen beim Empfänger nicht mehr wie kann ich das ändern.Ich habe schon einigen das Programm gesendet aber die wissen es auch nicht.
Wenn Du glaubst eine Lösung für mein Problem zu haben aber nicht genau verstehst was ich meine sende ich Dir gerne das Programm als Datei.

Danke für eure Hilfe


Nef-Patrasch

 

Hi,

die Druckeinstellungen sind ausschließlich vom verwendeten Drucker abhängig - wenn also die Empfänger einen anderen Drucker als du verwenden, stimmen deine Einstellungen dort nicht mehr und müssen dort neu angepasst werden.

Bis später,
Karin

 

Hallo nein das ist nicht das Problem die Datei die er versenden will legt er in einem extra ordner an und da stimmen die Druchtuckereinstellungen schon nicht mehr aber ich weis nicht wie ich sie dauerhaft ändern kann

 

Hallo!

Da Du offensichtlich die zu versendenden Daten in ein anderes Arbeitsblatt per VBA stellst, werden wahrscheinlich die Eigenschaften des PageSetup-Objektes dieses Arbeitsblattes per VBA korrekt einzustellen sein, möglicherweise auch die Eigenschaften der/einzelner Spalten dieses Blattes.

Um einen kleinen Eindruck zu geben, was sich da tut:

Code:

  With ActiveSheet.PageSetup
    .PrintTitleRows = "$1:$1"
    .PrintTitleColumns = ""
    .PrintArea = "$C:$P"
  End With
  With ActiveSheet.PageSetup
    .LeftHeader = ""
    .CenterHeader = ""
    .RightHeader = ""
    .LeftFooter = ""
    .CenterFooter = ""
    .RightFooter = ""
    .PrintHeadings = False
    .PrintGridlines = False
    .PrintComments = xlPrintNoComments
'   .PrintQuality = -4
    .CenterHorizontally = False
    .CenterVertically = False
    .Orientation = xlLandscape
    .Draft = False
    .PaperSize = xlPaperA4
    .FirstPageNumber = xlAutomatic
    .Order = xlDownThenOver
    .BlackAndWhite = False
    .Zoom = 100
    .LeftMargin = Application.CentimetersToPoints(0.5)
    .RightMargin = Application.CentimetersToPoints(0.5)
    .TopMargin = Application.CentimetersToPoints(1)
    .BottomMargin = Application.CentimetersToPoints(0.5)
    .HeaderMargin = Application.CentimetersToPoints(0.1)
    .FooterMargin = Application.CentimetersToPoints(0.1)
  End With
  Columns("E:Q").EntireColumn.AutoFit
  with Columns("G:G")
    .ColumnWidth = 41.57
    .HorizontalAlignment = xlLeft
    .VerticalAlignment = xlTop
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
  End With

 

@ Exl121150
Und wie kann ich das jetzt ändern bzw kannst mir bei meinem Problem helfen ich sende dir auch gerne die datei zu.

 

Hallo!

Du kannst ja eine abgespeckte Version/Kopie (die nur die für das Problem entscheidenden Teile enthält) Deiner Datei hier hochladen, eventuell mit beigefügtem Kommentar (damit ich weiß, wie es korrekt ausschauen sollte), und ich schaue mir das Ganze an. Denn ohne Detailkenntnis kann ich sicher nichts Zielführendes sagen - außer wie ich in diesem Fall generell vorgehen würde:
1) Ich würde den Makrorekorder einschalten.
2) Dann würde ich das betreffende Arbeitsblatt so einstellen, dass die Formatierungen stimmen.
3) Dann würde ich den Makrorekorder ausschalten.
4) Dann würde ich mit den Tasten Alt+F11 in den VBA-Editor umschalten und mir den vom Makrorekorder erzeugten Code anschauen, der in etwa so ausschauen müsste, wie mein Muster vom letzten Posting.
5) Dann würde ich mir in den bisher bestehenden Makros die Stelle suchen, wo das Zwischendurch-Arbeitsblatt formatiert wird, und diese (nicht korrekte) Formatierung durch die entsprechend vom Makrorekorder ermittelten Einstellungen ersetzen.
6) Dann würde ich wieder mit den Tasten Alt+F11 zurückschalten ins normale Arbeitsblatt, das Ganze speichern und dann einen Testlauf machen und hoffen, dass es jetzt zur Zufriedenheit läuft. -- Falls nicht: dann sind noch mittels Punkt 1-5 entsprechende Nachbesserungen zu machen.